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by Clavton Walnum 



Every day, more and more 8-bit computer 
owners are trading up to STs. Needless to say, 
tiiis has had many effects on the Atari 8-bit 
computer market. For one thing, with less 
users to support them, software publishers 
have not been willing to risk their develop- 
ment dollars on programs for the 8-bit line 
of computers. They are afraid that they won't 
be able to sell enough copies of their pro- 
grams to make the effort profitable. 

But there's one software publisher that is 
still putting out software regularly— in fact, 
one that publishes many programs a month. 
These programs include utilities, games and 
applications, just to mention a few types. That 
publisher is, of course, ANALOG Comput- 
ing, whose commitment to the 8-bit Atari 
market is evidenced by the magazine you're 
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now holding in your hands. 

But we'd be lying if we told you that things 
hadn't changed at ANALOG, as well. Just 
like everyone else, we've seen interest in the 
Atari 8-bit line of computers drop over the 
last few years. One of the ways that declin- 
ing interest affects magazines like ANALOG 
is in the number of program submissions we 
receive. Today we receive far fewer submis- 
sions than was ordinary as little as a year ago. 
It seems that, just as users are moving on to 
the STs, so are the programmers. 

What does this mean to you? It means that 
if you've been thinking about submitting an 
article but have been putting it off because 
you were afraid of the competition, this might 
be the best time. I'm not saying that there is 
no competition. But programmers have a far 
better chance of seeing their work in print 
now, than they have for many years. 

So if you've been thinking about submit- 
ting something, please do. It's easy. Print out 



a copy of your program, then write up an ar- 
ticle explaining it and print it out in double- 
spaced manuscript form; then place a copy 
of the article (assuming you've used a word 
processor) and your program on a disk con- 
taining DOS (only Atari DOS, please) and 
mail it to ANALOG Computing, P.O. Box 
1413-M.O., Manchester, CT 06040-1413. 
That's all there is to it. 

Usually, you will be notified of our deci- 
sion within two weeks. And we pay well for 
articles that are accepted, with a check be- 
ing mailed to you within 30 days of your 
returning the contract. What a great way to 
use your Atari! 

In any case, ANALOG Computing plans to 
be around for a long time, and even though 
it's gotten a little tougher to come up with the 
quality programs you're used to seeing in these 
pages, it certainly hasn't become impossi- 
ble. In the months to come, we've got some 
great things lined up. You just wait and see.H 
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Where to Write 

All submission.s should be sent to: ANALOG 
Computing, P.O. Box 1413-M.O., Manchester, CT 
06040-141,3. All other editorial material (letters, 
press release, etc.) should be sent to; Editor, 
ANALOG Computing, 9171 Wilshire Blvd., Suite 
,300, Beverly Hills, CA 90210. 

Con'espondence regarding subscriptions, in- 
cluding problems and changes of address, should 
be sent to: ANALOG Computing, P.O. Box 16927, 
North Hollywood, CA 91615, or call (818) 
760-8983. 

Correspondence concerning a regular column 
should be sent to our editorial address, with the 
name of the column included in the address. 

We cannot reply to all letters in these pages, 
so if you would like an answer, please enclose a 
self-addressed, stamped envelope. 

An incorrectly addressed letter can be delayed 
as long as two weeks before reaching the proper 
destination. 
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mission is to be returned, please send a self 
addressed, stamped envelope. 

For further information, write to ANALOG 
Computing, P.O. Box I413-MO, Manchester, Cf 
06040-1413. 
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Printscreen 
Update 



READER 
COMMENT 



Can't Find 
Atari? 



While I was going through the August is- 
sue, checking up on another outstanding BBK 
production, B-CALC, my eyes wandered over 
to the Steve Panak article and the words "Buy 
Atari. . ." jumped off the page at me. What 
Steve and Atari seem to forget is that there 
is a very large portion of this country that 
can't just wander down to a local Atari store 
and see what is available. We poor folks are 
totally limited to either driving long distances 
(in my case, in excess of 200 miles) to the 
nearest Atari dealer, or to mail-order. And 
now Atari is cutting out the mail-order 
houses. While we would be more than hap- 
py to support Atari, we first have to have the 
support from Atari. When that happens. Atari 
sales and software support will improve. 

And, yes, I have expressed these same feel- 
ings to Atari. 

—Frank Merson 
San Angelo, TX 

We're glad to hear that you 've taken the 
time to contact Atari. That 's the best way 
Atari users can tell the company what they 
like and don 7 like. Customer feedback is im- 
portant to any company, and Atari is no ex- 
ception. Anyone else who's interested in 
contacting Atari may write to them at Atari 
Corp. , 1196 Borregas Avenue, Sunnyvale, CA 
94086. 



The Old 
Rehash Doubled- 



Please stop talking about favorite old 
games. I already heard Steve Panak talk about 
his favorites, so let's not do it again. Don't 
get me wrong, I always enjoy Arthur Leyen- 
berger's The End User, but the subject of 
favorite oldies has been beaten to death. 

Let's see some new stuff out there. You 
could review new hardware like Easy Scan. 
You could, for example, have some interviews 
with users' groups. There are also some de- 
cent programs out there WkeAlfCrunch, Su- 
perArc, Billboard and many more. There's so 
much to talk about, so don't waste it on yet 
another look at the good old days. 

After reading your CES Video Game 
Report, I have come to the conclusion that 
Sega, not Atari, will be the company to make 
headway into Nintendo territory. The reason: 
Atari titles lack any sort of creativity. They 
are nothing more than repackaged old games. 
I am sure that people will be less than thrilled 
to hear that they can play Asteroids and One- 
on-One yet again. Atari had better start 
releasing some new and creative titles, in- 
stead of trying to port all of their old titles 
to three different machines. 

—Paul Siu 
Darby, PA 

Latest reports show that Nintendo has cap- 
tured a phenomenal 80% of the video-game 
market, with Sega and Atari sharing the re- 
maining portion. Sadly, you're absolutely 
correct in your conclusion that Sega has the 
greater chance of giving Nintendo a run for 
their money. Not only are the Sega games 
newer and more original, but the Sega 
machines have higher-quality graphics. It 
saddens us greatly to see the once video-game 
king now taking up a weak third-place posi- 
tion, but there is still hope for the future. 
Rumors abound that Atari is preparing a 
68000-based game machine. The 68000 
processor is the hean of the ^computer, and 
if Atari does it right, a 68000-based game 
machine could be the new state-of-the-art in 
video games. Of course, the other video game 
companies have new machines in the works, 
as well. It may be a tough battle for Atari. 



My Printscreen Utility was published in the 
August 1988 issue of ANALOG Computing. 
I have a correction that should be made to 
this program. 

Printscreen was designed to work with 
most programs, whether in BASIC or 
machine language. However, it doesn't work 
with some machine-language programs 
which access screen memory directly and do 
not use the CIO system. This is due to the 
way it is protected from dumping the screen 
when the printer is already in use. To make 
it work on these programs, the last two num- 
bers in the DATA statement of Line 140 (15 
and 144) must be changed to 6 and 176. 

Thanks to Terry Johnson for bringing this 
problem to my attention. I hope this correc- 
tion will help those who have had trouble us- 
ing this utility. 

—Justin E. Wilder 
Goshen, IN 



Moyin^ Files 



I received the September issue disk. I want- 
ed to play Snowplow, but the information says 
to move Snowplow to another disk and re- 
name it AUTORUN.SYS. However, no direc- 
tions are given as to how to do this. Please 
advise. 

— Robert Gunsberg 
Medford, NY 

First take a blank disk and format it using 
Option I of the DOS menu (type "DOS" to 
get to this ntenu), then write new DOS files 
to the disk by selecting Option H. Now in- 
sert your ANALOG disk into the drive and 
choose Option O, Duplicate File. Follow the 
on-screen prompts , switching the ANALOG 
disk (the source disk) and your newly format- 
ted disk (the destination disk) as directed. 
Wlten this process is completed, a new copy 
of Snowplow will have been placed on your 
disk. To rename the file, simply choose Op- 
tion E of the DOS menu and type SNOW- 
PLOW.OBJ, AUTORUN.SYS. The file will be 
renamed, and from that point on, to load 
Snowplow, just boot your computer with the 
new disk while holding down the Option key. 
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track of what scan 

line is currently 

being drawn. 

Actually, it 

increases by 1 

every two scan 

lines, so multiply 

the value by 2 to 

get the true 

number. 
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How to Read the Memory Map 

Beginning users: Read the text that is print- 
ed in bold type only. These memory locations 
will be the easiest for you to use and usually 
don't involve assembly language. 

Advanced users: Read everything! Many 
areas of memory are not of any practical use, 
but you can learn a lot about how a computer 
works by reading the boring parts. 

PIA stands for Peripheral Interface Adapt- 
er and is also known as the 6520 chip. It takes 
care of the four controller jacks (two on some 
Atari models), which are the places that you 
plug your joysticks into. These controller 
jacks, or Atari ports as we will call them, 
have capabilities far greater than the reading 



by Robin Sherer 



of joysticks, paddles and light pens. They can 
handle simultaneous input and output, which 
makes them perfect for use as an alternative 
to the 850 expansion interface. Some com- 
panies, in fact, already manufacture a cable 
that lets you run a printer from these ports 
instead of the 850. 



PORTA 
54016 



D300 



PORTA actually has two functions, de- 
pending on whether Bit 2 of PACTL (follow- 
ing) is set. If it is set, then PORTA writes 
to or reads from the first two controller jacks. 
Depending on whether you're using joysticks 
or paddles, PORTA's bits will have the fol- 
lowing meanings in Figure 1. 

continued on page 32 
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by Steve Panak 




There exists in this country a disease. A 
contagious disease. A form of madness which 
renders its victims helpless, transforming 
them into crazed sociopaths, destined to live 
their remaining days chained to a keyboard, 
or a joystick, staring into a flickering phos- 
phor screen, struggling to survive. This is the 
legacy of the gaming bug. 



Fortunately, most of the populace has had 
the time to build up immunity. Pac-Man 
caught a nation weakened by Space Invaders 
off-guard, and millions fell. With all the 
defenses down, hundreds of games flooded 
the system, preying on those too weak to 
muscle their way to their favorite machine. 
However, in time, people became stronger 



and discovered that there was more to life 
than chasing flashing blobs around on a phos- 
phor screen. Just as suddenly as it started, 
it stopped. 

But not for everyone. Because, although the 
epidemic has passed, there are still pockets 
of the disease remaining. Cursed clusters of 
barely-human beings locked in a desperate 
search for a never-ending and unattainable ul- 
timate video fix. And the disease itself has 
mutated. No longer simply a mindless virus, 
it often transforms into mutations that appear 
to think, that offer deeper and more complex 
challenges, that infect many who escaped the 
first horrific onslaught. 

For one to be cured, like the recovering al- 
coholic, it is first necessary to recognize that 
there is a problem. To help those of my read- 
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ers who may fear themselves infected (as well 
as those who deny their own susceptibility 
by allowing themselves to think "it can't hap- 
pen to me"), I offer the following multiple 
choice quiz. Honestly answer the questions; 
the person you save may be yourself. And no 
cribbing the answers from the end of the 
column. 



1. What is your favorite, totally futile 
activity? 

a) Searching for an honest politician. 

b) Trying to copy a game diskette using 
Atari DOS. 

c) Placing a Babel Fish in your ear. 

2. When you pass an arcade game cabinet 
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in your local supermarket (or airport, 
shopping mall, etc.) do you: 

a) Unconsciously feel your pockets for 
change. 

b) Nervously look over your shoulder to 
see if anyone is watching as you probe 
the coin return for a forgotten token. 

c) Violently rattle the joystick when neither 
a) nor b) result in activating the game. 

3. Do the palms of your hands: 

a) Sweat at the sight of a disk drive's busy 
light? 

b) Contain callouses at the base of your 
thumbs? 

c) Have hair growing in them? (the second 
sign of impending insanity, the first being 
searching for the aforementioned hair). 



4. In Boulder Dash, the main character is: 

a) A lump of coal named Chunky. 

b) A soiled miner named Rockford. 

c) The poor soul holding the joystick, 
unable to eat, sleep, or excrete until he 
completes the current level. 

5. What is your favorite diversion during 
your free time? 

a) Watching NBC's Saturday evening 
lineup. 

b) Reading about computer games. 

c) Playing computer games. 

Of course, there are hundreds of other 
signs, some of them obvious, others barely 
discernible. But rather than go into those, let's 
take a little recess and pop into these two new 
games. 

11 
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GAUNTLET 



Gauntlet 



by Atari 



a number of months, after the first boot it's 
easy to see how Gauntlet could easily be a 
hit. This is because the game adheres close- 
ly to the time-proven and weather-worn ele- 
ments which can make an arcade action game 
so addictive. 

One or two players may compete or 
cooperate. And, in a first, the program al- 
lows the second player to start at any time, 
simply by pressing the joystick button. Be- 
fore starting the game, each player chooses 
Although I haven't been in the arcades for a character through whom they will vicari- 



Mindscape 

3444 Dundee Road 

Northbrook, IL 60062 

(312) 480-7667 

$34.95 



ously run the Gauntlet. Go with Merlin the 
Wizard tor strong magic powers or Thor the 
Warrior for physical strength. As is the case 
with all arcade hits, your goals are simple. 
Collect valuables. Destroy monsters. And, of 
course, survive. 

Monsters are produced by monster gener- 
ators located throughout the mazes. These 
heinous devices will continue to belch out 
dangerous creatures until they are destroyed. 
A number of species of vile beasts keep the 
action lively and fresh, as each has its own 




RICHARD 

PETTY'S 

TALLADEGA 
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attack mode and vulnerability. Demons shoot 
fireballs while Lobbers toss stones, and each 
species comes in three levels of strength, 
which determine how many hits are neces- 
sary to kill it. 

And to keep it interesting, various special 
objects are scattered throughout the dun- 
geons. Potions to increase your hero's 
strength, food to increase his lifeline, armor 
to increase his protection; all of these pro- 
vide you with a slight edge against seeming- 
ly incredible odds. 

Although the graphics are not the best I've 
ever seen on an 8-bit machine, the action is 
nonetheless captivating. You always know the 
game is good when you find that suddenly 
an hour, then two, then three have passed you 
by. Probably the aspect of this game that is 
most addictive is the sheer number of adver- 
saries you are required to wipe out. No mat- 
ter what you do, they just keep on coming. 
And you keep on killing. What could be more 
relaxing? 

Rounding out the package is a decent 
manual, written concisely and sporting 
numerous illustrations. Overall, Gauntlet is 
recommended for anyone looking for some- 
thing new in arcade challenges. 

Richard Petty's Talladega 

by Robert T. Bonifacio 

Cosmi 

415 North Figueroa 

Wilmington, CA 90744 

(213) 835-9687 

$12.95 

It's been a while since I've played a race 
game on the 8-bit, and unfortunately no one 
seems to have taken this time-interim to cre- 
ate a really good game. Still, Richard Pet- 
ty's Talladega manages to provide a couple 
of surprises for would-be stock car drivers. 

This game is more like a simulation, in that 
it puts you through many of the things that 
a real driver would experience, rather than 
being content with merely letting you speed 
around an oval track. For example, when you 
first start the game, you have to qualify for 
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starting position in a field of twenty oppo- 
nents. Only then, and after choosing one of 
the three tracks, are you ready to start toward 
the checkered flag. 

Just a perusal through the lengthy manual 
hints at the complexity of the simulation. 
Stops will be necessary in the pit stop for 
more fuel and new tires. A turbo boost, while 
eating up a lot of valuable fuel, may be just 
what the doctor ordered to get past the last 
couple of cars between you and the finish 
line. Wrecks will cause the action to slow 
while the yellow flag is out. Unfortunately, 
this complexity is not continued throughout 
every aspect of the game. 

In particular I found the graphics to be sur- 
prisingly disappointing. For example, when 
you wreck your car, the monitor fills with a 
smoke screen of special characters, rather 
than the colorful conflagration one expects 
from the explosion of a race car full of alco- 
hol. The display is reminiscent of that of the 
2600. I know better is possible on this 
machine— I've seen it done. But while the 
graphics are a disappointment, the control of 
your vehicle is equally surprising, but this 
time the surprise is pleasant. For some rea- 
son, progranmiers in the past have had a lot 
of trouble translating the steering wheel's ro- 
tation to the joystick's lateral movements. 
This difficulty is not apparent here, as your 
car is very responsive to your every whim. 

Overall, Talladega gives an uneven perfor- 
mance. It is too flawed to get an unqualified 
recommendation, but offers too much to be 
completely dismissed (especially considering 
its low price). Your best bet is to check it out 
at your local dealer. You might end up driv- 
ing it home. 

Getting back to the quiz, there really are 
no answers— it was all in fun. Probably the 
only ones surprised by this revelation are 
those of you who jumped back here looking 
for the answers. In the final analysis, no quiz 
or other diagnosis is necessary, as those af- 
flicted (as I am) know who they are. And liv- 
ing with this disease is not all that bad, es- 
pecially given all the great programs out 
there. So until next we meet, curl up with 
your favorite game and suffer. R 




NEWS 



Certron Takes a Stand 



Certron, a well-known computer supplies 
company, has recently made available a new 
series of universal computer -equipment 
stands. 

The UTS-1 Tilt 'N Swivel monitor stand al- 
lows the computer owner to set his monitor 
at whatever angle is most convenient and 
comfortable. The stand is designed in such 
a way that the monitor can remain on the 
stand when angle adjustments need to be 
made. The unit is constructed of high-impact, 
non-magnetic plastic and retails for $34.95. 

Also available from Certron are the PS-80 
and PS-132 double-tray printer stands, the 
former for 80-column printers and the latter 
for 132-column printers. Both stands contain 
input and output trays, and the vinyl-coated 
steel construction minimizes printer noise. 
The PS-80 is $24.95, while the PS-132 is 



$27.95. 

If you want to make sure that you have a 
printer stand that'll fit whatever printer comes 
your way, you might want to consider Cer- 
tron's new UPS-1 Universal Printer Stand. 
Although it doesn't supply the input and out- 
put trays, it will accommodate any size 
printer. The UPS-1 can be purchased for 
$12.95. 

Finally, Certron has available locking dis- 
kette storage boxes. The 5.25-inch model will 
hold 50 disks and is made of sturdy plastic 
with smoke-tinted lids. 

Certron Corporation 
1651 S. State College Blvd. 
Anaheim, CA 92806 
(714) 634-4280 
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SYSOPs Take Note! 




UTS-1 TILT N SWIVEL MONITOR 
STAND 




80-COLUMN DOUBLE TRAY PRINTER 
STAND 




LOCKING DESKTOP STORAGE FILES 




UPS 1 UNIVERSAL PRINTER STAND 



Carina Software Systems has released Ca- 
rina II, a new version of their popular BBS 
system for the 8-bit Atari computers. The Ca- 
rina BBS system is set up using SIGs (spe- 
cial interest groups), and divides the bulletin 
board up into many smaller systems, each fo- 
cused on a particular topic of interest. This 
makes it easier for users to locate items that 
are of interest to them, and at the same time, 
bypass those topics they don't care about. Ca- 
rina II supports up to 26 of these areas. 

Carina II also provides other BBS features 
such as download databases, electronic mail, 
online games, as well as some special fea- 
tures like the ability to create polls that al- 



low users to vote on various questions. 

Carina II requires ICD's SpartaDOS, and 
it is suggested that SYSOPs run the BBS with 
a RAMdisk of at least 192K and an ICD R- 
Time 8 cartridge. The complete system is 
available now and is priced at $65. Owners 
of the original Carina BBS may be eligible 
for an upgrade discount. 



Carina Software Systems 
P.O. Box 6072 
Rockford, IL 61125 
(815) 874-1836 
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German Club Offers Disk Mapzine 



The following is an excerpt from a letter 
recently received at ANALOG'S offices: 

Two years ago, the Atari Bit Byter User 
Club (ABBUC) was in contact with over 25 
users ' groups in the U.S. Today we hear from 
less than ten. Have the others died out or 
switched over to the STs? Tlie remaining 8-bit 
users must work together to keep their 
machines from going the way of the VIC or 
the TI. To work together, first the users must 
communicate with each other ABBUC, a 
group of over 500 users, would like to com- 
municate with users ' groups from the U.S. 
and the rest of the world as well. We are pre- 
pared to trade our tri-monthly disk magazine 
to all the clubs who send us their newsletter. 
We can he contacted at the following address: 



ABBUC 

do Wolfgang Burger 

Wieschenbeck 45 

D-4352 Herten 

West Germany 

We are looking forward to corresponding 
with our fellow Atarians throughout the 
world. Through the exchange of information 
between users ' groups, the 8-bit Ataris will 
continue to grow and will one day be finally 
recognized as a machine that was truly ahead 
of its time. 

So if your users' group would be interest- 
ed in receiving ABBUC's disk-based maga- 
zine, drop them a line. I'm sure they'll be 
thrilled to hear from you. 
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A 16-bit Atari Uit 



DataQue Software has announced 
Turbo-816, a hardware upgrade for the Atari 
8-bit computers that will both increase the 
speed of the computer and allow direct ac- 
cess to memory beyond 64K. The extra 
memory is not accessed using the awkward 
bank-select methods; it is a linear memory 
bank of up to 16 megabytes. Special internally 
mounted memory boards that, in most cases, 
require no hardware modifications, will be 
available to take advantage of the new extend- 
ed addressing range. 

The Turbo-816 upgrade will be available in 
two forms: a replacement CPU board for the 
original 400/800 Computer system and a 
plug-in module for the XL/XE series. There 
are no hardware modifications required, ex- 
cept in the case of XL/XE systems which will 
require the removal of the existing CPU. Da- 
taQue claims that Turbo-816 will be compat- 



ible with most of the existing software. 

New products planned for the Turbo-816 
system include a real-time multi-tasking oper- 
ating system kernel, a assembler-editor- 
debugger, a new BASIC, a C development 
package, a Turbo-GOS operating system 
(graphics-based), and a developer's kit. 

DataQue Software 
Dept. T-800 
PO. Box 134 
Ontario, OH 44862 

New product announcements to be consid- 
ered for use in 8-bit News should be sent to: 
8-bit News, ANALOG Computing, P.O. Box 
1413-M.O., Manchester, CT 06040-1413. 
Please include photos, screen shots and 
product samples whenever possible. 
CIRCLE #158 ON READER SERVICE CARD. 



APRIL A.N.A.L.O.Q. CompuCing 




by Barry Kolbe 



You and another adventurer are searching 
for the lost gold mines of Mazeaton. The 
mines are located in the midst of a large 
maze, well-protected by ghostly guardians. 
To reach the cache of gold, both of you must 
race through identical mazes while being 
hunted down by the guardians of the trea- 
sure. If you should happen to touch one of 
the guardians, you will be zapped back to the 
beginning of the maze. Whoever arrives at 
the end of the maze first receives 100 gold 
coins. This achievement also allows both of 
you to enter the middle maze where 277 gold 
pieces are kept— collect as much as you can. 
After this you must leave the maze city by 
racing through another maze like the first 
one. The victor (or Victoria) again receives 
100 gold coins. 

After the third maze your accumulated 
wealth is displayed and immediately phoned 
into the IRS. Pressing Start permits you to 
play again and add to your riches. Option 
resets your bank to zero. Unfortunately, this 
will not deceive the IRS in the least. While 
you are mazing, press Select to abort the 
game and return to this screen. 



Typing It In 



Krazy Mazes is an all-machine-language 
game and must be typed in using the M/L 
Editor found elsewhere in this issue. Load 



and run the game by using the Binary Load 
option for your DOS. 

Author's Notes 

I have always been intrigued with mazes. 
I think it started with the Atari 2600 game 
called Maze Craze where two players raced 
through the same maze. The maze was small 
because of the large images on the screen 
(like GRAPHICS 2). Krazy Mazes is done 
in GRAPHICS 5 and ANTIC Mode 5. These 
were chosen for their colors, size and visi- 
bility. The randomly generated maze is 
formed in memory and then copied to either 
the GRAPHICS 5 or ANTIC 5 screen. 

Most people who make maze games use 
one of two possible maze generators. They 
often start the maze generation in the upper 
left-hand corner and these mazes tend to be 
quite simple as there is usually only one path 
from beginning to end. I suggest starting the 
generation from the center as it makes for 
more interesting mazes. 

Anyway, don't get lost in the mazes! 

Barry Kolbe and his wife, Linda, live in the 
country with their children, Philip andAudra. 
The household uses time-sharing because the 
Atari 800 and the Nintendo Entertainment 
System are hooked up to the same TV. 
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LISTINB 1: NVL EOnOR DMA 



1088 DATA 255,255,8,48,51,68,32,85,59, 

,169,8,133,179,169,16,162,4818 

1018 DATA 2,157,222,58,157,242,58,202, 

,16,247,169,88,141,244,2,32,7787 

1028 DATA 174,53,169,7,162,55,168,27,3 

32,92,228,169,8,133,188,32,5129 

1038 DATA 200,54,32,51,54,169,8,133,15 

56,169,128,133,157,169,2,133,6649 

1848 DATA 181,169,1,133,179,32,39,59,3 

32,92,48,32,88,58,169,8,537 

1058 DATA 141,47,2,32,108,55,32,88,58, 

,32,92,48,32,88,58,76,9381 

1860 DATA 3,48,169,8,141,47,2,32,143,5 

50,32,132,52,32,168,50,1890 

1078 DATA 32,16,51,32,41,52,169,40,141 

1,196,2,169,282,141,197,2,6301 

1880 DATA 169,148,141,198,2,32,56,58,3 

32,200,54,32,51,54,169,2,1086 

1898 DATA 133,181,169,1,133,179,133,18 

80,169,69,141,48,2,169,50,141,5942 

1180 DATA 49,2,169,62,141,47,2,165,152 

2,133,168,165,154,133,169,169,9858 

1118 DATA 1,133,176,169,8,133,177,169, 

,152,133,178,32,199,51,169,3,6894 

1128 DATA 133,176,165,153,133,168,165, 

,155,133,169,169,0,133,177,169,155,748 

8 

1138 DATA 133,178,32,199,51,169,8,133, 

,156,169,128,133,157,173,120,2,7237 

1140 DATA 201,15,208,3,76,119,49,281,7 

7, 288, 25, 165, 152, 201, 79, 240, 9265 

1150 DATA 103,32,169,52,176,98,32,85,4 

49,230,152,32,112,49,32,132,3935 

1168 DATA 50,76,82,49,281,11,208,25,16 

65,152,201,1,240,74,32,178,7243 

1178 DATA 52,176,69,32,85,49,198,152,3 

32,112,49,32,132,50,76,82,2429 



1188 DATA 49,201,14,208,25,165,154,281 

1,1,248,45,32,186,52,176,48,6820 

1198 DATA 32,85,49,198,154,32,112,49,3 

32,132,50,76,82,49,201,13,2514 

1200 DATA 208,22,165,154,201,21,240,16 

6,32,195,52,176,11,32,85,49,3074 

1218 DATA 238,154,32,112,49,32,132,50, 

,76,119,49,169,0,133,176,165,5636 

1220 DATA 152,133,168,165,154,133,169, 

,169,0,133,177,169,152,133,178,141,974 

4 

1230 DATA 30,208,32,199,51,96,169,1,13 

33,176,76,89,49,173,121,2,4357 

1248 DATA 281,15,248,98,281,7,288,25,1 

165,153,281,79,248,88,32,32,6804 

1258 DATA 53,176,83,32,13,58,238,153,3 

32,37,50,32,132,58,76,224,3963 

1268 DATA 49,201,11,208,19,165,153,281 

1,1,248,59,32,41,53,176,54,4561 

1278 DATA 32,13,58,198,153,76,146,49,2 

201,14,208,19,165,155,201,1,6716 

1280 DATA 240,36,32,58,53,176,31,32,13 

3,58,198,155,76,146,49,281,5328 

1290 DATA 13,208,19,165,155,281,21,240 

0,13,32,60,53,176,8,32,13,1385 

1388 DATA 58,238,155,76,146,49,32,183, 

,53,176,39,141,38,288,32,219,6295 

1310 DATA 54,165,156,201,218,144,3,32, 

, 51, 54 , 165, 157 , 201 , 218, 144 , 3, 7768 

1320 DATA 32,238,53,173,31,208,201,5,2 

208, 5, 184, 104, 76, 3, 48, 76, 2889 

1338 DATA 215,48,96,165,153,133,168,16 

65,155,133,169,169,0,133,177,169,481 

1340 DATA 155,133,178,169,8,133,176,32 

2, 199, 51, 96, 165, 153, 133, 168, 165, 9685 

1358 DATA 155,133,169,169,3,133,176,14 

41,38,208,32,199,51,96,169,1,5775 

1368 DATA 133,152,133,153,169,11,133,1 

154,133,155,96,112,112,112,74,0,5163 

1370 DATA 152,10,10,10,10,10,10,10,10, 

,10,10,10,10,10,10,10,2872 

1380 DATA 10,10,10,10,10,10,10,78,168, 

,58,74,0,155,18,18,10,7591 

1390 DATA 10,10,10,10,10,10,10,10,10,1 

10,10,10,10,10,10,10,2750 

1400 DATA 10,10,10,65,69,50,169,254,20 

08,2,169,255,133,28,165,28,7195 
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14ie DATA 288,252,133,77,96,169,8,133, 

,144,169,144,133,145,162,7,168,8371 

1428 DATA 8,169,8,145,144,136,288,251, 

,238,145,282,16,242,96,169,8,297 

1438 DATA 133,144,169,144,133,145,162, 

,22,168,12,169,128,145,144,288,192,787 

7 

1448 DATA 65,288,249,165,144,24,185,86 

8,133,144,165,145,185,8,133,145,7439 

1458 DATA 282,16,229,169,8,24,185,32,1 

133,144,169,144,185,3,133,145,6128 

1468 DATA 162,2,168,8,169,128,145,144, 

,288,192,79,288,249,165,144,24,1862 

1478 DATA 185,88,133,144,165,145,185,8 

8.133,145,282,16,229,96,169,125,9857 

1488 DATA 133,144,169,145,133,145,162, 

,15,189,183,51,149,186,282,16,248,1111 

1 

1498 DATA 169,6,133,175,288,22,169,133 

3,133,144,169,147,133,145,162,15,8878 

1588 DATA 189,167,51,149,186,282,16,24 

48, 169, 128, 133, 175, 169, 5, 168, 8, 8841 

1518 DATA 145,144,173,18,218,41,3,133, 

, 178, 133, 171 , 165, 178 , 18 , 178 , 165,9144 

1528 DATA 144,24,117,186,133,148,165,1 

145,117,187,133,149,177,148,197,175,29 

977 

1538 DATA 288,38,165,178,18,178,165,14 

44,24,117,194,133,146,165,145,117,9737 

7 

1548 DATA 195,133,147,169,8,145,146,23 

38,178,165,178,145,148,165,148,133,222 

22 

1558 DATA 144,165,149,133,145,76,44,51 

1,238,178,165,178,41,3,133,178,7815 

1568 DATA 197,171,288,183,168,8,177,14 

44,133,178,169,8,145,144,165,178,498 

1578 DATA 281,5,288,1,96,238,178,165,1 

178,41,3,18,178,24,165,144,6197 

1588 DATA 117,186,133,144,165,145,117, 

,187,133,145,76,44,51,2,8,96,3292 

1598 DATA 255,254,255,168,8,1,8,176,25 

55,255,255,88,8,2,8,176,6626 

1688 DATA 255,254,255,88,8,1,8,216,255 

5,255,255,48,8,165,169,18,8317 

1618 DATA 133,158,169,8,42,133,151,6,1 

158,38,151,165,158,133,165,165,8961 

1628 DATA 151,133,166,6,158,38,151,6,1 

158,38,151,165,158,24,181,165,6454 

1638 DATA 133,158,165,151,181,166,133, 

,151,165,177,24,181,158,133,158,165,23 

35 

1648 DATA 178,181,151,133,151,165,168, 

,41,3,178,165,168,74,74,24,181,5786 

1658 DATA 158,133,144,165,151,185,8,13 

33,145,164,176,189,165,52,57,157,8996 

1668 DATA 52,133,165,189,161,52,168,8, 

,49,144,5,165,145,144,96,169,7427 

1678 DATA 8,133,174,133,168,169,2,133, 

, 176 ,169,8, 133,177 , 169, 152 , 133 , 9867 

1688 DATA 178,169,8,133,148,169,144,13 

33,149,168,8,177,148,248,9,132,9158 

1698 DATA 168,165,174,133,169,32,199,5 

51, 238, 168, 164, 168, 192, 88, 288, 235, 4146 

6 

1788 DATA 238,174,165,174,281,23,248,1 

16,165,148,24,185,88,133,148,165,8671 

1718 DATA 149,185,8,133,149,76,67,52,1 

168,8,185,8,152,153,8,155,4768 

1728 DATA 185,8,153,153,8,156,288,288, 

,241,96,169,152,133,145,169,8,82 

1738 DATA 133,144,162,2,168,8,169,8,14 

45,144,288,288,251,238,145,282,3959 

1748 DATA 16,242,96,8,85,178,255,63,28 

87,243,252,192,48,12,3,165,9188 

1758 DATA 154,166,152,232,32,284,52,96 

6, 165, 154, 166, 152, 282, 76,174, 52, 9943 

1768 DATA 166,154,282,138,166,152,76,1 

174,52,166,154,232,138,166,152,76,1278 

8 

1778 DATA 174,52,18,133,165,169,8,42,1 

133,166,168,2,6,165,38,166,5848 

1788 DATA 136,16,249,165,165,133,158,1 

165,166,133,151,168,1,6,165,38.6933 



1798 DATA 166,136,16,249,165,165,24,18 

81,158,133,158,165,166,181,151,133,338 

8 

1888 DATA 151,169,8,24,181,158,133,146 

6,169,144,181,151,133,147,138,24,8814 

1818 DATA 181,146,133,146,165,147,185, 

,8,133,147,168,8,177,146,281,128,9463 

1828 DATA 288,2,56,96,24,96,165,155,16 

66,153,232,32,284,52,96,165,9895 

1838 DATA 155,166,153,282,32,284,52,96 

6,166,155,282,138,166,153,32,284,1866 

1848 DATA 52,96,166,155,232,138,166,15 

53,32,284,52,96,112,112,112,68,7428 

1858 DATA 8,144,4,4,4,4,4,4,4,4,4,4,4, 

,4,4,4,2678 

1868 DATA 4,4,4,4,4,4,4,78,189,58,65,7 

78,53,165,152,281,4863 

1878 DATA 77,248,8,165,153,281,77,248, 

,18,24,96,238,222,58,32,21,6297 

1888 DATA 68,56,96,238,242,58,32,26,68 

8,56,96,32,143,58,169,8,2916 

1898 DATA 133,144,169,144,133,145,162, 

,28,168,8,169,6,145,144,288,192,9567 

1988 DATA 39,288,249,165,144,24,185,48 

8,133,144,165,145,185,8,133,145,7553 

1918 DATA 282,16,229,96,169,62,141,47, 

,2,169,1,141,111,2,169,182,4844 

1928 DATA 141,192,2,169,38,141,193,2,1 

169,14,141,194,2,141,195,2,6827 

1938 DATA 169,8,141,8,288,141,1,288,14 

41,2,288,169,1,141,8,288,7119 

1948 DATA 141,9,288,141,18,288,141,11, 

,288,169,3,141,29,288,169,136,8947 

1958 DATA 141,7,212,96,32,144,54,173,1 

18, 218,41, 31, 24, 185, 71, 133, 3899 

1968 DATA 164,162,8,168,189,167,54,153 

3,8,141,153,188,141,268,153,8,7898 

1978 DATA 141,153,188,141,288,232,224, 

,12,288,234,164,164,169,28,153,4,157 

1988 DATA 143,153,5,143,153,184,143,15 

53,185,143,169,28,153,18,143,153,7922 

1998 DATA 11,143,153,110,143,153,111,1 

143,96,32,121,54,173,18,218,41,6898 

2888 DATA 31,24,185,32,133,163,162,8,1 

164,163,189,167,54,153,8,148,7572 

2818 DATA 153,188,148,288,153,8,148,15 

53,188,148,288,232,224,12,288,234,3788 

8 

2828 DATA 169,28,164,163,153,4,142,153 

3,5,142,153,184,142,153,185,142,8611 

2838 DATA 169,28,153,18,142,153,11,142 

2,153,118,142,153,111,142,96,162,8933 

2848 DATA 23,169,8,164,163,153,8,148,1 

153,8,142,153,188,148,153,188,7848 

2858 DATA 142,288,282,16,248,96,162,23 

3,169,8,164,164,153,8,141,153,8281 

2868 DATA 188,141,153,8,143,153,188,14 

43,288,282,16,248,96,28,62,187,7536 

2878 DATA 127,127,99,127,127,127,127,2 

218,8,238,156,238,157,165,156,141,3889 

9 

2888 DATA 8,288,141,2,288,165,157,141, 

,1,288,141,3,288,96,162,8,7338 

2898 DATA 138,157,8,140,157,8,141,157, 

,8,142,157,8,143,232,288,241,1368 

2188 DATA 96,173,4,288,133,158,41,1,24 

48,15,32,85,49,169,1,133,4122 

2118 DATA 152,169,11,133,154,32,112,49 

9,96,165,158,41,4,248,15,32,4196 

2128 DATA 13,58,169,1,133,153,169,11,1 

133, 155, 32, 37, 58, 96, 173, 5, 3818 

2138 DATA 288,133,158,41,1,248,3,76,22 

28,54,165,158,41,4,288,223,8896 

2148 DATA 96,165,179,288,18,169,8,141, 

,8,218,141,1,218,248,64,32,7352 

2158 DATA 179,54,238,167,165,167,41,3, 

,170,134,167,189,160,58,141,192,987 

2160 DATA 2,189,164,58,141,193,2,165,1 

188,248,3,32,219,54,198,181,367 

2178 DATA 165,181,288,27,238,34,59,173 

3,34,59,41,3,141,34,59,178,3917 

2180 DATA 169,2,133,181,189,35,59,141, 

,8,210,169,166,141,1,210,76,8336 

2190 DATA 98,228,169,70,141,48,2,169,5 
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53, 141, 49i 2, 32, 123, 58, 169, 4852 

2208 DATA 148,141,196,2,169,246,141,19 

97,2,169,68,141,198,2,32,133,7468 

2218 DATA 53,32,248,58,32,154,55,169,6 

62,141,47,2,32,223,55,96,4580 

2228 DATA 169,8,133,144,169,144,133,14 

45,169,8,133,159,133,168,162,18,8743 

2238 DATA 165,144,24,185,48,133,144,16 

65,145,185,8,133,145,168,1,177,7424 

2248 DATA 144,288,12,169,7,145,144,238 

8,159,165,159,288,2,238,168,288,3437 

2258 DATA 192,38,288,235,282,16,217,16 

65,159,56,233,2,133,159,165,168,1595 

2268 DATA 233,8,133,168,96,169,1,133,1 

152,169,18,133,154,32,93,57,5618 

2278 DATA 169, 37, 133, 153, 169, tB, 133, 15 

55,32,187,57,169,8,162,3,149,5318 

2288 DATA 182,282,16,251,162,2,169,16, 

,157,199,58,157,285,58,282,16,8739 

2298 DATA 247,32,93,57,173,128,2,281,1 

15,248,86,201,7,288,22,32,6853 

2388 DATA 242,56,176,77,32,192,57,32,6 

66,57,238,152,32,93,57,32,4068 

2318 DATA 128,58,76,187,56,281,11,268, 

,16,32,6,57,176,51,32,192,4189 

2328 DATA 57,32,66,57,198,152,76,38,56 

6,201,14,208,16,32,14,57,2547 

2330 DATA 176,31,32,192,57,32,66,57,19 

98,154,76,38,56,281,13,288,6586 

2348 DATA 16,32,23,57,176,11,32,192,57 

7,32,66,57,238,154,76,38,4568 

2358 DATA 56,32,187,57,173,121,2,281,1 

15,248,86,281,7,288,22,32,5978 

2368 DATA 32,57,176,77,32,12,58,32,88, 

,57,238,153,32,187,57,32,3173 

2378 DATA 128,58,76,283,56,281,11,288, 

,16,32,48,57,176,51,32,12,2127 

2388 DATA 58,32,88,57,198,153,76,134,5 

56,281,14,288,16,32,48,57,3934 

2398 DATA 176,31,32,12,58,32,88,57,198 

8,155,76,134,56,281,13,288,7111 

2408 DATA 16,32,57,57,176,11,32,12,58, 

,32,88,57,230,155,76,134,4995 

2418 DATA 56,165,182,24,181,184,133,16 

61,165,183,181,185,133,162,197,160,342 

24 

2428 DATA 288,7,165,161,197,159,288,1, 

,96,173,31,208,201,5,208,5,8498 

2430 DATA 104,104,76,3,48,76,11,56,165 

5,154,166,152,232,32,121,57,7069 

2448 DATA 160,8,177,146,281,6,248,2,24 

4,96,56,96,165,154,166,152,8619 

2458 DATA 282,76,247,56,164,154,136,15 

52, 166 , 152 , 76,247 , 56, 164 , 154, 288 , 3829 

2468 DATA 152,166,152,76,247,56,165,15 

55,166,153,232,76,247,56,165,155,3108 

2478 DATA 166,153,282,76,247,56,164,15 

55,136,152,166,153,76,247,56,164,2127 

2480 DATA 155,200,152,166,153,76,247,5 

56,165,154,166,152,32,121,57,160,9753 

2498 DATA 8,169,0,145,146,96,165,155,1 

166,153,32,121,57,160,0,152,7350 

2500 DATA 145,146,96,165,154,166,152,3 

32,121,57,160,0,169,8,145,146,7210 

2510 DATA 96,165,155,166,153,32,121,57 

7,160,0,169,9,145,146,96,10,5261 

2520 DATA 133,165,169,0,42,133,166,6,1 

165,38,166,6,165,38,166,165,7278 

2530 DATA 165,133,150,165,166,133,151, 

,6,165,38,166,6,165,38,166,165,8374 

2540 DATA 165,24,101,150,133,150,165,1 

166,101,151,133,151,169,0,24,101,7571 

2550 DATA 150,133,146,169,144,101,151, 

,133,147,138,24,101,146,133,146,165,29 

96 

2560 DATA 147,105,0,133,147,96,201,7,2 

240,1,96,32,15,59,230,182,7216 

2570 DATA 208,2,230,183,162,2,254,199, 

,58,189,199,58,201,26,144,17,9102 

2580 DATA 169,16,157,199,58,202,48,9,2 

254,199,58,189,199,58,76,214,1103 

2590 DATA 57,32,253,59,162,2,254,222,5 

58,189,222,58,201,26,144,17,9041 

2600 DATA 169,16,157,222,58,202,48,9,2 



254,222,58 , 189,222 , 58, 76 , 246 , 2256 

2610 DATA 57,96,201,7,240,1,96,32,15,5 

59,230,184,208,2,230,185,229 

2620 DATA 162,2,254,205,58,189,205,58, 

,201,26,144,17,169,16,157,205,9604 

2630 DATA 58,202,48,9,254,205,58,189,2 

205,58,76,34,58,32,31,60,3986 

2640 DATA 162,2,254,242,58,189,242,58, 

,201,26,144,17,169,16,157,242,623 

2650 DATA 58,202,48,9,254,242,58,189,2 

242,58,76,66,58,96,169,136,9127 

2660 DATA 141,48,2,169,58,141,49,2,32, 

,123,58,173,132,2,208,6,4266 

2670 DATA 173,132,2,240,251,96,173,133 

3,2,208,240,173,133,2,248,251,4366 

2688 DATA 96,169,8,133,179,162,3,157,0 

8,288,282,16,258,96,112,112,9350 

2698 DATA 112,112,112,112,71,210,58,11 

12,112,112,71,238,58,112,112,112,8198 

2700 DATA 71,250,58,65,136,58,68,68,74 

4,74,36,36,42,42,0,0,9121 

2710 DATA 0,0,235,114,33,250,121,128,1 

173,161,186,165,179,0,0,0,6927 

2720 DATA 0,0,0,0,115,99,111,114,101,1 

115,0,17,26,16,16,16,8899 

2730 DATA 0,18,26,16,16,16,0,0,0,0,0,5 

51,35,47,50,37,6151 

2740 DATA 0,17,26,0,16,16,16,0,0,0,0,0 

0,0,0,0,51,3956 

2750 DATA 35,47,50,37,0,18,26,0,16,16, 

,16,0,0,8,0,0,3947 

2760 DATA 0,0,0,0,240,242,229,243,243, 

,128,230,233,242,229,0,0,4104 

2770 DATA 0,0,0,0,0,169,23,141,0,210,1 

162,170,142,1,210,32,6517 

2780 DATA 132,50,169,0,141,1,210,96,0, 

,132,0,143,0,169,99,141,5611 

2790 DATA 48,2,169,59,141,49,2,165,156 

6,201,218,144,3,32,51,54,5574 

2800 DATA 165,157,201,218,144,3,32,238 

8,53,173,31,208,201,6,208,1,8497 

2810 DATA 96,201,3,208,226,32,85,59,76 

6,49,59,169,16,162,4,157,5437 

2820 DATA 237,59,157,247,59,202,16,247 

7,96,112,112,112,112,71,133,59,8178 

2830 DATA 7,112,112,70,173,59,112,112, 

,112,112,70,193,59,112,70,213,8583 

2840 DATA 59,112,112,112,112,70,233,59 

9,65,99,59,0,0,0,0,114,1038 

2850 DATA 0,0,0,186,0,0,8,8,8,8,0,0,0, 

,0,0,0,3594 

2860 D«TA 0,43,0,0,0,225,0,0,0,121,0,0 

0,237,225,250,229,9151 

2870 DATA 243,0,0,0,0,0,162,185,128,16 

62,161,178,178,185,128,171,1966 

2880 DATA 175,172,162,165,0,0,0,0,0,8, 

,115,116,97,114,116,0,1799 

2890 DATA 0,0,0,112,108,97,121,0,0,0,0 

0,0,0,0,111,112,8764 

2900 DATA 116,105,111,110,0,0,8,115,99 

9,111,114,181,115,8,0,0,881 

2910 DATA 17,26,0,16,16,16,16,16,0,0,1 

18,26,0,16,16,16,4689 

2920 DATA 16,16,0,162,4,254,237,59,189 

9,237,59,201,26,144,11,169,9646 

2930 DATA 16,157,237,59,202,16,238,189 

9,237,59,96,162,2,76,255,59,73 

2940 DATA 162,2,76,33,60,162,4,254,247 

7,59,189,247,59,201,26,144,929 

2950 DATA 8,169,16,157,247,59,202,16,2 

238,96,0,80,255,81,0,0,5614 

2960 DATA 0,0,0,0,0,0,56,56,56,56,56,0 

8,56,0,102,102,9370 

2970 DATA 102,0,0,0,0,0,0,102,255,102, 

,102,255,182,8,24,62,4863 

2988 DATA 96,68,6,124,24,8,8,182,108,2 

24,48,102,70,0,223,253,5913 

2998 DATA 223,253,223,253,223,253,8,48 

8,170,190,190,170,40,0,0,40,7073 

3800 DATA 0,185,48,40,65,65,0,20,0,150 

0,20,20,130,130,0,102,1467 

3010 DATA 60,255,60,102,0,0,0,24,24,12 

26,24,24,0,0,0,0,6388 

3020 DATA 0,0,0,24,24,48,0,0,0,126,0,0 

APRIL A.N.A.L.O.Q. Computing 



e,e,e,e,e,4784 

3939 DATO 9,9,6,24,24,8,8,6,12,24,48,9 

96,64,9,124,296,1319 

3949 DflTft 198,198,198,239,124,8,56,56, 

,24,24,24,24,24,8,124,238,3468 

3958 DATA 12,24,48,96,254,8,126,12,24, 

,12,6,182,69,9,12,28,8928 

3869 DATA 68,188,284,254,12,8,126,96,1 

124,6,6,182,68,8,124,198,4948 

3879 DATA 192,252,266,239,124,8,126,6, 

,12,24,48,48,48,6,124,286,4686 

3889 DATA 239,124,296,239,124,8,124,28 

96,198,238,126,12,24,48,8,56,5724 

3896 DATA 56,8,8,56,56,6,8,8,24,24,8,2 

24,24,48,6,12,5666 

3188 DATA 24,48,24,12,6,6,6,6,126,8,6, 

,126,8,8,96,48,8224 

3118 DATA 24,12,24,48,96,6,66,182,162, 

,12,24,9,24,6,6,68,7712 

3128 DATA 182,116,116,96,62,6,126,156, 

,69,54,62,192,192,195,238,115,9866 

3136 DATA 99,99,118,99,99,222,66,182,2 

284,192,192,192,239,124,238,115,5524 

3149 DATA 99,99,99,99,99,222,254,162,9 

96,129,96,99,192,124,254,192,1363 

3159 DATA 96,129,96,96,96,96,68,162,19 

98,192,222,198,182,68,198,198,3274 

3168 DATA 198,286,254,238,198,198,48,2 

24,24,24,24,24,24,12,39,12,288 

3178 DATA 12,12,12,28,56,96,198,188,18 

98,129,129,188,188,198,224,96,328 

3188 DATA 95,96,96,192,126,129,198,238 

8,254,214,198,198,198,198,198,198,9268 

8 

3198 DATA 236,246,222,286,198,198,124, 

,266,198,198,198,198,238,124,124,162,6 

6636 

3288 DATA 182,162,168,96,96,192,124,23 

36, 198, 198, 198, 198, 286, 127, 238, 115, 673 

36 

3218 DATA 182,168,162,162,99,195,58,10 

62,96,66,6,6,162,92,254,48,5923 

3226 DATA 96,192,192,194,198,124,236,1 

162,182,102,162,162,118,63,195,162,365 

5 

3239 DATA 192,192,162,162,68,24,195,19 

95,195,211,263,223,119,98,195,195,5357 

7 

3248 DATA 192,69,66,162,195,195,195,18 

82,182,68,24,24,24,24,126,198,6152 

3258 DATA 12,24,254,96,195,254,6,36,24 

4,24,24,24,38,8,6,64,9617 

3268 DATA 96,48,24,12,6,6,6,128,24,24, 

,24,24,128,8,6,8,7258 

3278 DATA 28,54,99,6,8,6,6,6,6,6,6,6,2 

255,8,226,2,446 

3288 DATA 227,2,6,48,6,6,0,0,0,0,0,0,0 

6,8,8,8,3763 



LISTING 2: ASSEMBLY 



8188 ;SAUE«D:RACE.H65 
8118 ;5-28-88 9:88 P.H. 



9126 


/ 






9139 




.BPT N0 LIST 


9149 




»= 


$96 


9159 


L8 


.DS 


1 


9168 


HI 


.DS 


1 


9179 


I 


.DS 


2 


9189 


J 


.DS 


2 


9199 


HL 


.DS 


1 


9299 


MH 


.DS 


1 


9216 


1 






6226 


DIX 


.DS 


1 


6236 


D2X 


.DS 


1 


8248 


DIV 


.DS 


1 



6250 

0260 

6276 

6286 

8290 

0386 

6316 

8328 

6338 

6346 

6358 

6366 

6378 

8386 

9399 

9466 

6416 

6426 

8438 

6446 

6458 

8469 

9479 

9488 

8496 

6566 

8516 

6526 

6536 

6546 

6558 

8568 

8578 

6586 

0599 

6688 

6616 

6628 

6636 

0640 

0650 

0660 

8676 

6688 

6696 

6768 

6716 

6728 

8730 

6746 

0758 

6766 

6776 

8788 

6796 

6886 

0810 

0828 

6836 

6848 

6850 

0868 

6876 

6888 

0896 

6980 

0910 

0920 

0930 

6946 

8956 

6966 

8978 

0988 

6998 

1866 

1616 

1828 

1636 

1648 

1850 

1666 

1678 

1688 



D2V 

GX 

GXl 

COLS 

GOLD 

TOTL 

P8yp 

PIVP 

LHD 

HHD 

GCNT 

PX 

PV 

XHD 

JHD 

H51 

HS2 



DS 1 
DS 1 
DS 1 
.DS 1 
.DS 2 
.DS 2 
.DS 1 
.DS 1 
.DS 1 
.DS 1 

.DS 1 
.DS 1 



.DS 

.DS 

.DS 

.DS 

.DS 
LINES .DS 
MZNUH .DS 
COLOR .DS 
MSCN 
VFLG 
TFLG 
TIM .DS 1 
SCRl .DS 2 



DS 2 
DS 1 
DS 1 



;gr5 a or b 



SCR2 

TBI 

TB2 



.DS 2 
DS 8 
DS 8 

OPT LIST 
OPT NO LIST 



RANDOM 
HP0SP6 
HPOSPl 
HITCLR 
MVSET = 

PMB = 
PLH6 = 
PLRl = 
PLR2 = 
PLR3 = 
MAZEB = 
GR5A = 
GR5B = 



= $D29A 
= $D988 
= $D891 
= $D91E 
$5999 

$8868 
$8Ce8 
$8D66 
$8Ee8 
$8F86 
$9668 
$9886 
$9886 



*= $3886 
BEGIN JSR ZHSC 
START LDA n0 
STA VFLG 
LDA »$16 

LDX tt2 
FSLP STA FSC1,X 

STA FSC2,X 

DEX 

BPL FSLP 

LDA tX >MVSET 

STA 756 

JSR SETPMG 

LDA tt7 

LDX tt >UBX 

LDV » <VBI 

JSR $E45C 

LDA tt8 

STA TFLG J 

JSR CLPLRS ; 

JSR DEFP6 J 

LDA tt6 

STA GX J 

LDA tt$80 J 

STA GXl 

LDA xa. 

STA TIM ; 
LDA »1 

STA VFLG ; 

JSR INTRO ; 

JSR GAMEl ; 

JSR NTRMSS ; 
LDA ttO 

STA $022F ; 

JSR GAME2 ; 
JSR NTRMSS 

JSR GAMEl ; 
JSR NTRMSS 



;0 scores 

;vbi flag 

iset final 
; scores 

;chr set 

PMG setup 
install vbi 



title flag 
clear plyrs 
define po 

set ghost 
positions 



tiHer 

turn on vbi 
what it says 
play 1st game 
internission 

screen off 
Middle gane 

1st again 



APRIL A.N.A.L.O.Q. Compucing 



1698 


J MP 


START 


;do again 


iiee 


; 






me 


GAHEl LDA »9 




1120 


STfl 


$e22F 




1139 


J5R 


CLRB 


;clear naze 


1140 


JSR 


CLRGR5 


;clear gr5 


use 


JSR 


PRPMZE 


; prepare Maze 


1168 


JSR 


GENMZ5 


; generate it 


1178 


JSR 


C0PVT05 


;to gr 5 


1188 


LDA 


n$29 


;colors 


1198 


STft 


$e2C4 




1288 


LDA 


ttSCA 




1218 


5Tft 


$e2C5 




1228 


LDA 


«$94 




1238 


5TA 


$e2C6 




1248 


JSR 


SETUP 


;set up screen 


1258 


JSR 


CLPLRS 


;clear & define 


1268 


JSR 


DEFPB 




1278 


LDA 


tt2 




1288 


STA 


TIM 


; ghost timer 


1298 


LDA 


ttl 




1388 


STA 


VFLG 


;vbi flags 


1318 


STA 


TFLG 




1328 


LDA 


tt <DL5 


;gr5 dlist 


1338 


STA 


$8238 




1348 


LDA 


tt >DL5 




1358 


STA 


$8231 




1368 


LDA 


»62 


; screen on 


1378 


STA 


$822F 




1388 


LDA 


DIX 


;dot positions 


1398 


STA 


PX 




1488 


LDA 


DIY 




1418 


STA 


PV 




1428 


LDA 


ttl 


;plot color 


1438 


STA 


COLOR 




1448 


LDA 


tt <GR5A 


;top half 


1458 


STA 


MSCN 




1468 


LDA 


tt >GR5A 




1478 


STA 


WSCN+1 




1488 


JSR 


PLOTS 




1498 


LDA 


tts 


;plot color 


1588 


STA 


COLOR 




1518 


LDA 


D2X 


;dot pos 


1528 


STA 


PX 




1538 


LDA 


D2Y 




1548 


STA 


PY 




1558 


LDA 


tt <GR5B 


;bottoM half 


1568 


STA 


HSCN 




1578 


LDA 


tt >GR5B 




1588 


STA 


HSCN+l 




1598 


JSR 


PL0T5 




1688 


LDA 


tto 


;ghosties again 


1610 


STA 


GX 




1628 


LDA 


tt$88 




1638 


STA 


GXl 




1648 








1658 


;Move 1st dot, then 2nd 


1668 








1678 


STCl LDA 632 


;stick 8 


1688 


CMP 


tt$8F 




1698 


BNE 


STl 




1788 


J MP 


STC2 




1718 


STl CMP 


tt7 


; right? 


1729 


BNE 


TRL 




1739 


LDA 


DIX 




1748 


CMP 


tt79 




1759 


BEQ 


PJl 




1768 


JSR 


LOKR 


;look right 


1778 


BCS 


PJl 




1788 


JSR 


ERSDl 


; erase dot 


1798 


INC 


DIX 




1809 


JSR 


SHMDl 


;plot it in 


1819 


JSR 


MAIT 


;new position 


1828 


J MP 


PJl 




1838 


TRL CMP 


ttll 


;left? 


1848 


BNE 


TRU 




1858 


LDA 


DIX 




1868 


CMP 


ttl 




1878 


BEQ 


PJl 




1889 


JSR 


LOKL 




1898 


BCS 


PJl 




1998 


JSR 


ERSDl 




1919 


DEC 


DIX 





1920 




JSR 


SHMDl 


1938 




JSR 


MAIT 


1948 




JMP 


PJl 


1959 


TRU 


CMP 


ttl4 


1960 




BNE 


TRD 


1970 




LDA 


DIY 


1989 




CMP 


ttl 


1990 




BEQ 


PJl 


2000 




JSR 


LOKU 


2010 




BCS 


PJl 


2020 




JSR 


ERSDl 


2038 




DEC 


DIY 


2848 




JSR 


SHMDl 


2858 




JSR 


MAIT 


2060 




JMP 


PJl 


2070 


TRD 


CMP 


ttl3 


2080 




BNE 


PJl 


2090 




LDA 


DIY 


2100 




CMP 


tt21 


2110 




BEQ 


PJl 


2120 




JSR 


LOKD 


2138 




BCS 


PJl 


2148 




JSR 


ERSDl 


2158 




INC 


DIY 


2168 




JSR 


SHMDl 


2178 




JSR 


MAIT 


2188 


PJl 


JMP 


STC2 


2198 


i 






2200 


; erase top dot 


2210 


J 






2228 


ERSDl LDA tto 


2238 




STA 


COLOR 


2248 


SEDl LDA DIX 


2250 




STA 


PX 


2260 




LDA 


DIY 


2278 




STA 


PY 


2288 




LDA 


tt <GR5A 


2290 




STA 


MSCN 


2380 




LDA 


It >GR5A 


2318 




STA 


HSCN+1 


2328 




STA 


HITCLR 


2338 




JSR 


PL0T5 


2348 




RTS 




2358 








2368 


;plot top dot 


2378 








2388 


SHMDl LDA ttl 


2398 




STA 


COLOR 


2488 




JMP 


SEDl 


2418 


; 






2428 


J Move the 2nd dot 


2438 


i 






2448 


STC2 LDA $0279 ; Stick 1 


2458 




CMP 


«$0F 


2468 




BEQ 


PS,I 


2478 




CMP 


tt7 ;left 


2488 




BNE 


T2L 


2498 




LDA 


D2X 


2588 




CMP 


tt79 


2518 




BEQ 


PSJ 


2520 




JSR 


L2R ;look righ 


2530 




BCS 


PSJ 


2540 




JSR 


ERSD2 ; erase dot 


2550 




INC 


D2X 


2569 


L2L 


JSR 


SHMD2 ;plOt dot 


2579 




JSR 


MAIT 


2589 




JMP 


PSJ 


2599 


T2L 


CMP 


ttll 


2699 




BNE 


T2U 


2619 




LDA 


D2X 


2628 




CMP 


ttl 


2639 




BEQ 


PSJ 


2649 




JSR 


L2F 


2658 




BCS 


PSJ 


2669 




JSR 


ERSD2 


2678 




DEC 


D2X 


2688 




JMP 


L2L 


2698 


T2U 


CMP 


ttl 4 


2788 




BNE 


T2D 


2710 




LDA 


D2Y 


2720 




CMP 


ttl 


2730 




BEQ 


PSJ 


2740 




JSR 


L2U 



APniL A.N.A.L.O.Q. Computing 



2750 
2760 
2778 
2780 
2798 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2978 
2988 
2998 
3888 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3188 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3288 
3218 
3228 
3238 
3248 
3258 
3268 
3278 
3288 
3298 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 
3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3588 
3518 
3528 
3538 
3540 
3558 
3568 
3578 



BCS 
JSR 
DEC 
J MP 
T2D CMP 
BNE 
LDA 
CMP 
BEQ 
JSR 
BCS 
JSR 
INC 
J MP 



PSJ 

ERSD2 

D2V 

L2L 

ttl3 

PSJ 

D2Y 

tt21 

PSJ 

L2D 

PSJ 

ERSD2 

D2Y 

L2L 



; is there a winner 

PSJ JSR MINER? 

BCS NKGME 

STA HITCLR 

JSR CHKCOL 



LDA 
CMP 
BCC 
JSR 

FOK LDA 
CMP 
BCC 
JSR 

SDK LDA 
CMP 
BNE 
PLA 
PLA 
J MP 

SSK JMP 



GK 

tt$DA 

FOK 

DEFPO 

GXl 

tt$DA 

SDK 

DEFPl 

53279 

tt5 

SSK 



START 
STCl 



; reset ghosts 



;chk for 
;select 



NXGME RTS 



;soHeone won 



; erase bottoM dot 

ERSD2 LDA D2X 
STA PX 
LDA D2Y 
STA PV 
LDA it <GR5B 
STA MSCN 
LDA tt >GR5B 
STA WSCN+1 
LDA »8 
STA COLOR 
JSR PL0T5 
RTS 

i 

;pl0t bOttOH dot 

SHND2 LDA D2X 

STA PX 

LDA D2Y 

STA PV 

LDA tt3 

STA COLOR 

STA HITCLR 

JSR PL0T5 

RTS 
t 
; setup dots 

SETUP LDA «1 

STA DIX 

STA D2X 

LDA nil 

STA DIV 

STA D2Y 

RTS 
i 
jdisplay list for gr 5 

DL5 .BYTE $70, $70, $78, $4A 
.MORD GR5A 

.BYTE $eA,$eA,$8A,$8A,$8A 
.BYTE $BA,$8A,$8A,$0A,$8A 



3580 




■BYTE $8A,$8A,$eA,$8A, 


$0A 


3598 




.BYTE $8A,$eA,$8A,$eA, 


$eA 


3688 




.BYTE $8A,$eA,$46 




3618 




.MORD TITLE 




3628 




.BYTE $4A 




3638 




.MORD GR5B 




3648 




.BYTE $8A,$8A,$8A,$8A, 


$0A 


3658 




.BYTE $8A,$8A,$8A,$8A, 


$8A 


3668 




.BYTE $eA,$eA,$8A,$eA, 


$eA 


3678 




.BYTE $eA,$8A,$8A,$8A, 


$eA 


3688 




.BYTE $8A,$8A,$41 




3698 




.MORD DL5 




3788 


i 








3718 


MAITL LDA tt$FE 




3728 




BNE 


MTl 




3738 


HAIT LDA tt$FF 




3748 


MTl 


STA 


$14 




3758 


HLP 


LDA 


$14 




3768 




BNE 


HLP 




3778 




STA 


77 




3780 




RTS 






3790 


f 








3888 


; Clear Maze 




3818 


f 








3828 


CLR8 LDA tt <MAZEe 




3838 




STA 


LO 




3848 




LDA 


tt >MAZE8 




3858 




STA 


HI 




3860 


C83 


LDX 


tt7 ;7.5 pages 


3878 


ce2 


LDY 


tt8 




3888 




LDA 


tt8 




3898 


cei 


STA 


CL0J,Y 




3988 




DEY 






3918 




BNE 


COl 




3928 




INC 


HI 




3938 




DEX 






3948 




BPL 


ce2 




3958 




RTS 






3968 


; 








3978 


; prepare naze for generation 


3988 


J 








3998 


PRPMZE LDA tt <MAZEe 




4888 




STA 


LO 




4818 




LDA 


tt >MAZEe 




4828 




STA 


HI 




4838 




LDX 


tt22 ;23 lines 




4848 


PR2 


LDY 


ttl2 




4858 




LDA 


tt$80 




4868 


PRl 


STA 


CLOJ,Y 




4878 




INY 






4888 




CPY 


tt65 




4898 




BNE 


PRl 




4188 




LDA 


LO 




4110 




CLC 






4128 




ADC 


ttse 




4138 




STA 


LO 




4140 




LDA 


HI 




4158 




ADC 


ttO 




4168 




STA 


HI 




4178 




DEX 






4188 




BPL 


PR2 




4198 




LDA 


tt <MAZEO 




4288 




CLC 






4218 




ADC 


tt <800 




4228 




STA 


LO 




4238 




LDA 


tt >MAZEO 




4248 




ADC 


tt >80e 




4258 




STA 


HI 




4268 




LDX 


tt2 ;3 lines 




4278 


TUN 


LDY 


ttO 




4288 




LDA 


tt$8e 




4298 


TUP 


STA 


CLOJ.Y 




4388 




INY 






4318 




CPY 


tt79 




4328 




BNE 


TUP 




4338 




LDA 


LO 




4348 




CLC 






4358 




ADC 


ttSO 




4368 




STA 


LO 




4378 




LDA 


HI 




4380 




ADC 


ttO 




4398 




STA 


HI 




4488 




DEX 
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S3 



44ie BPL TUN 

4*20 RTS 

4438 ; 

4448 ;generate the Hiddle naze 

4458 ;in Antic node 4 

4468 ; 

4478 GEHMZ4 LDA tt <[MAZE8+381] 

4488 5TA LO 

4498 LDA It > [MAZE8+381] 

4588 STA HI 

4518 LDX ttl5 

4528 MUU LDA TB41,X 

4538 STA TB1,X 

4548 DEX 

4558 BPL MVU 

4568 LDA tt6 

4578 STA MZHUM 

4588 BNE SMZ 

4598 ; 

4688 ; generate a Maze for gr. 5 

4618 ; 

4628 GEHMZ5 LDA tt < [MAZE8-I'981] 

4638 5TA L8 

4648 LDA tt > [MAZE8+981] 

4658 STA HI 

4668 LDX ttl5 

4678 HUT LDA TB51,X 

4688 STA TB1,X 

4698 DEX 

4788 BPL MUT 

4718 LDA tt$88 

4728 STA MZNUM 

4738 ; 

4748 ;the naze generation is 

4758 ;is done here 

4768 ; 

4778 SMZ LDA tt5 



4788 


LDV tt8 




4798 


STA CLO),Y , 


Start Of Maze 


4888 GNl 


LDA RANDOM , 


get rand direct 


4818 


AND tt3 , 


8-3 


4828 


STA HHD 


save it 


4838 


STA JHD 


twice 


4848 GN3 


LDA XHD 


get direct 


4858 


ASL A 


,x 2 


4868 


TAX 


;8=rt, 1= up 


4878 


LDA LO 


;2=lft, 3=dn 


4888 


CLC 


; find new pos 


4898 


ADC TB1,X 


;2 away froM 


4988 


STA J 


; where we are 


4918 


LDA HI 




4928 


ADC TB1-I-1,X 




4938 


STA J+1 




4948 


LDA CJ),y 


; what's there 


4958 


CMP MZNUM 


;a wall? 


4968 


BNE GN2 


;no 


4978 


LDA XHD 


;yes so erase 


4988 


ASL A 


;it 


4998 


TAX 




5888 


LDA LO 




5818 


CLC 




5828 


ADC TB2,X 


;get inbetween 


5838 


STA I 


; location 


5848 


LDA HI 




5858 


ADC TB2+1,X 




5868 


STA I+l 




5878 


LDA tte 


;zero it 


5888 


STA CI>,Y 




5898 


INC XHD 


; store next 


5188 


LDA XHD 


;direction 


5118 


STA tJ),V 


; in new spot 


5128 


LDA J 


;reset current 


5138 


STA LO 


;location to 


5148 


LDA J+1 


;new pos 


5158 


STA HI 




5168 


JMP GNl 


; again 


5178 GN2 


INC XHD 


;try next 


5188 


LDA XHD 


;direction 


5198 


AND tt3 




5288 


STA XHD 


;if sane as 


5218 


CMP JHD 


;old-30 back 


5228 


BNE GH3 


;try this direct 


5238 


LDV tt8 


;going back 



;haue we cone 

;back to begin? 

; no 

; yes-done! 

;tr!; next direct 

;and see if it 

jwill work 



5248 LDA CL01,Y 

5258 STA XHD 

5268 LDA ttO 

5278 STA CLO),Y 

5288 LDA XHD 

5298 CMP tt5 

5388 BNE GH4 

5318 RTS 

5328 GN4 INC XHD 

5338 LDA XHD 

5348 AND tt3 

5358 ASL A 

5368 TAX 

5378 CLC 

5388 LDA LO 

5398 ADC TBl.X 

5488 STA LO 

5418 LDA HI 

5428 ADC TBl+ljX 

5438 STA HI 

5448 JMP GNl 

5458 J 

5468 ;tables to got rt,lf,up,dn 

5478 ; f or 9r5 and antic 5 

5488 ; 

5498 TB51 .BYTE 2,8,96,255 

5588 .BYTE 254,255,168,8 

5518 TB52 .BYTE 1,8,176,255 

5528 .BYTE 255,255,88,0 

5538 TB41 .BYTE 2,8,176,255 

5548 .BYTE 254,255,80,8 

5558 TB42 .BYTE 1,8,216,255 

5568 .BYTE 255,255,48,8 

5578 ; 

5588 ;plot routine for gr. 5 

5598 ; 

5688 PLOTS LDA PY 

5618 ASL A 

5628 STA ML 

5638 LDA tt8 

5648 ROL A 

5658 STA MH 

5660 ASL ML 

5678 ROL MH ; X4 

5680 LDA ML 

5690 STA LHD 

5788 LDA MH 

5718 STA HHD 

5720 ASL ML 

5738 ROL MH ; X8 

5748 ASL ML 

5750 ROL MH ;X16 

5768 LDA ML 

5778 CLC 

5788 ADC LHD 

5798 STA ML 

5888 LDA MH 

5818 ADC HHD 

5828 STA MH 

5838 LDA HSCN 

5848 CLC 

5858 ADC ML 

5868 STA ML 

5878 LDA HSCN+1 

5888 ADC MH 

5898 STA MH 

5988 LDA PX 

5918 AND tt3 

5928 TAX 

5938 LDA PX 

5948 LSR A 

5958 LSR A 

5960 CLC 

5978 ADC ML 

5988 STA LO 

5990 LDA MH 

6888 ADC tte 

6818 STA HI 

6828 LDY COLOR 

6838 LDA BMASK2,K 

6848 AND COLORS, V 

6850 STA LHD 

6060 LDA BMASK1,X 
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6876 
6088 
6890 
6188 
6118 
6128 
6138 
6148 
6158 
6168 
6178 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6258 
6268 
6278 
6288 
6298 
6388 
6318 
6328 
6330 
6348 
6358 
6368 
6378 
6388 
6398 
6480 
6410 
6420 
6430 
6440 
6458 
6460 
6470 
6480 
6490 
6500 
6510 
6528 
6538 
6548 
6558 
6568 
6578 
6588 
6590 
6600 
6618 
6628 
6638 
6648 
6658 
6668 
6670 
6688 
6698 
6708 
6718 
6728 
6730 
6748 
6758 
6768 
6778 
6788 
6798 
6888 
6818 
6828 
6838 
6848 
6858 
6868 
6878 
6888 
6898 



LDV tte 

AND CLO),Y 

ORA LHD 

STft tLOJ,V 

RTS 
I 
;cop!^ Maze to gr5 screen 



;24 lines 
; reset px 



C0PYT05 LDA tt8 

5TA LINES 

5Tft PX 

LDA tt2 

STA COLOR 

LDA tt <GR5A 

STA MSCN 

LDA » >GR5A 

5TA N5CN+1 

LDA tt <MAZE8 

STA J 

LDA tt >MAZEO 

STA J+1 
NLN LDV ttO 
NKV LDA (J},V 

BEQ NEXB 

STY PX 

LDA LINES 

STA PY 

JSR PLOTS 
NEXB INC PX 

LDV PX 

CPV tt88 

BNE NXY 

INC LINES 

LDA LINES 

CMP tt23 

BEQ CDON 

LDA J 

CLC 

ADC tt88 

STA J 

LDA J+1 

ADC tt8 

STA J+i 

JMP NLN 
CDON LDV tte 
MAB LDA GR5A,Y 

STA GR5B,Y 

LDA GR5A+$ei0e,Y 

STA GR5B+$0ie0,Y 

INY 

BNE HAB 

RTS 

; Clear out grS screen MeMry 

CLRGR5 LDA tt >GR5A 
STA HI 

tt <GRSA 
LO 



L5A 



LDA 
STA 
LDX tt2 

LDY no 

LDA ttO 
L5 STA 
INY 

BNE L5 
INC HI 
DEX 
BPL 
RTS 



CLOJ,Y 



L5A 



COLORS .BYTE $88, S55, SAA, $FF 
BMASKl .BYTE $3F, $CF, SF3, $FC 
BMASK2 .BYTE $C8, $38, $8C, $83 

; look for walls 
;to see if Movenent 
;is ok 

LOKR LDA DIY 

LDX DIX 

INX 
LLL JSR MUL80 

RTS 



6988 


* 






6918 


LOKL LDA DIY 


6920 




LDX 


DIX 


6930 




DEX 




6940 




JMP 


LLL 


6958 


LOKU LDX DIY 


6960 




DEX 




6978 




TXA 




6988 




LDX 


DIX 


6990 




JMP 


LLL 


7880 


J 






7818 


LOKD LDX DIY 


7028 




INX 




7838 




TXA 




7848 




LDX 


DIX 


7858 




JMP 


LLL 


7868 








7878 


iMultiply by 88 for gr5 sc 


7888 








7898 


MUL88 ASL A 


7188 




STA 


LHD ;x2 


7118 




LDA 


tt8 


7128 




ROL 


A 


7138 




STA 


HHD 


7148 




LDY 


tt2 


7158 


MSA 


ASL 


LHD 


7160 




ROL 


HHD ;xl6 


7170 




DEY 




7180 




BPL 


MBA 


7190 




LDA 


LHD 


7200 




STA 


ML 


7218 




LDA 


HHD 


7228 




STA 


MH 


7238 




LDY 


ttl 


7248 


M8B 


ASL 


LHD 


7258 




ROL 


HHD ;X64 


7268 




DEY 




7278 




BPL 


M8B 


7288 




LDA 


LHD ;16+64=X88 


7298 




CLC 




7388 




ADC 


ML 


7310 




STA 


ML 


7320 




LDA 


HHD 


7330 




ADC 


MH 


7340 




STA 


MH 


7350 




LDA 


tt <MAZEe 


7360 




CLC 




7370 




ADC 


ML 


7380 




STA 


I 


7390 




LDA 


tt >MAZEO 


7488 




ADC 


MH 


7418 




STA 


I+l 


7428 




TXA 




7438 




CLC 




7448 




ADC 


I 


7458 




STA 


I 


7468 




LDA 


I+l 


7478 




ADC 


tto 


7488 




STA 


I+l 


7490 




LDY 


tt8 


7588 




LDA 


{IJ,Y 


7518 




CMP 


tt$88 


7528 




BNE 


LOK 


7538 




SEC 




7548 




RTS 




7558 


LOK 


CLC 




7568 




RTS 




7578 


i 






7588 


;look routines for 2nd pla 


7598 


i 






7688 


L2R 


LDA 


D2Y 


7618 




LDX 


D2X 


7628 




INX 




7630 




JSR 


MUL88 


7640 




RTS 




7650 


i 






7660 


L2F 


LDA 


D2Y 


7670 




LDX 


D2X 


7680 




DEX 




7690 




JSR 


MUL88 


7708 




RTS 




7718 


* 






7728 


L2U 


LDX 


D2Y 
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S5 



7?39 




DEX 




7748 




TXA 




7758 




LDX 


D2X 


7768 




JSR 


MUL88 


7778 




RT5 




7788 


i 






7798 


L2D 


LDX 


D2Y 


7888 




INX 




7818 




TXA 




7828 




LDX 


D2X 


7838 




JSR 


MULSe 


7848 




RTS 




7858 








7868 


;displa!f list for antic 4 sen 


7878 








7888 


DL4 


■BYTE $78, $78, $78, $44 


7898 




.MORD MAZE8 


7988 




.BYTE $84, $84, $84, $84, $84 


7918 




.BYTE $84, $84, $84, $04, $84 


7928 




.BYTE $84, $84, $84, $04, $84 


7938 




.BYTE $84, $04, $84, $84, $64 


7948 




.BYTE $84, $46 


7958 




.WORD SCRTXT 


7968 




.BYTE $41 


7978 




.MORD DL4 


7988 








7998 


;see if 


there's a winner 


8888 


;add 168 to winner's score 


8818 








8828 


MINER? LDA DIX 


8838 




CMP 


«77 


8848 




BEQ 


MZl 


8858 




LDA 


D2X 


8868 




CMP 


«77 


8878 




BEQ 


MZ2 


8888 




CLC 




8898 




RTS 




8188 


MZl 


INC 


FSCl 


8118 




JSR 


AHUNl 


8128 




SEC 




8138 




RTS 




8148 


MZ2 


INC 


FSC2 


8158 




JSR 


AHUN2 


8168 




SEC 




8178 




RTS 




8188 








8198 


;set up 


for Hiddle Maze 


8288 








8218 


PRPMID JSR CLR8 


8228 




LDA 


tt <MAZE8 


8238 




STA 


LO 


8248 




LDA 


tt >HAZE8 


8258 




STA 


HI 


8268 




LDX 


tt28 


8278 


PMA 


LDY 


tt8 


8288 




LDA 


n6 


8298 


PMC 


STA 


tLO>,Y 


8388 




INV 




8318 




CPY 


tJ39 


8328 




BNE 


PMC 


8338 




LDA 


LO 


8348 




CLC 




8358 




ADC 


tt48 


8368 




STA 


LO 


8378 




LDA 


HI 


8388 




ADC 


n8 


8398 




STA 


HI 


8488 




DEX 




8418 




BPL 


PMA 


8428 




RTS 




8438 








8448 


;setup player graphics 


8458 








8468 


SETPMG LDA tt62 ; Single line 


8478 




STA 


$822F 


8488 




LDA 


ttl 


8498 




STA 


$826F 


8588 




LDA 


tt$66 ;colors 


8518 




STA 


$82C8 


8528 




LDA 


tt$26 


8538 




STA 


$82C1 


8548 




LDA 


tt$8E 


8558 




STA 


$62C2 



8568 


STA 


$82C3 


8578 


LDA 


tt8 


8588 


STA 


HP0SP8 


8598 


STA 


HPOSPl 


8688 


STA 


HP0SP6'»^2 


8618 


LDA 


ttl ;wi(fth 


8628 


STA 


$D888 


8638 


STA 


$D889 


8648 


STA 


$D88A 


8658 


STA 


$D88B 


8668 


LDA 


tt3 


8678 


STA 


$D81D 


8688 


LDA 


tt >PMB 


8698 


STA 


$D487 


8768 


RTS 




8718 






8728 


;put player at randOM verticj 


8736 


;position on screen within 


8748 


;a certain range 


8756 






8768 


DEFPl JSR CLRPl ;does bOttOM 


8778 


LDA 


RANDOM ; ghost 


8788 


AND 


tt$lF 


8798 


CLC 




8888 


ADC 


tt$47 


8818 


STA 


PlYP 


8828 


LDX 


tte 


8836 


TAY 




8848 


PIL LDA 


PDF1,X 


8858 


STA 


PLR1,Y 


8868 


STA 


PLR1+$64,Y 


8878 


INY 




8888 


STA 


PLR1,Y 


8898 


STA 


PLR1+$64,Y 


8988 


INY 




8918 


INX 




8926 


CPX 


ttl2 


8938 


BNE 


PIL 


8948 


LDY 


PlYP 


8958 


LDA 


tt$14 


8966 


STA 


PLR3+4,Y 


8976 


STA 


PLR3+5,Y 


8988 


STA 


PLR3+$68,Y 


8998 


STA 


PLR3+$69,Y 


9888 


LDA 


tt$ic 


9818 


STA 


PLR3+$eA,Y 


9828 


STA 


PLR3-I-$6B,Y 


9638 


STA 


PLR3+$6E,Y 


9848 


STA 


PLR3+$6F,Y 


9858 


RTS 




9866 






9678 


;place top ghost on screen 


9888 






9898 


DEFPe JSR CLRP8 


9188 


LDA 


RANDOM 


9118 


AND 


tt$lF 


9128 


CLC 




9138 


ADC 


tt$2e 


9148 


STA 


P8YP 


9158 


LDX 


tte 


9168 


LDY 


PBYP 


9178 


P8L LDA 


PDF1,X 


9188 


STA 


PLR8,Y 


9190 


STA 


PLR8+$64,Y 


9208 


INY 




9218 


STA 


PLRe,Y 


9226 


STA 


PLR8+$64,Y 


9238 


INY 




9248 


INX 




9258 


CPX 


ttl 2 


9266 


BNE 


PBL 


9276 


LDA 


tt$14 


9288 


LDY 


P8YP 


9298 


STA 


PLR2+4,V 


9366 


STA 


PLR2+5,V 


9316 


STA 


PLR2+$68,Y 


9326 


STA 


PLR2+$69,Y 


9336 


LDA 


tt$ic 


9346 


STA 


PLR2'i-$8A,Y 


9358 


STA 


PLR2+$8B,Y 


9366 


STA 


PLR2+$6E,Y 


9378 


STA 


PLR2+$6F,Y 


9388 


RTS 
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9390 ; 

9486 ;erase players e & 2 

9416 1 

9426 CLRP6 LDK tt23 

9436 LDA tt6 

9448 LDY P8VP 

9456 C8L STA PLR8,Y 



9468 


STA PLR2,Y 


9478 


STA PLR6+$64,Y 


9488 


STA PLR2+$64,V 


9498 


IHY 


9568 


DEX 


9518 


BPL C8L 


9528 


RTS 


9538 ; 




9548 ; 


erase players 1 & 3 


9558 ; 




9568 CLRPl LDK 023 


9578 


LDA »6 


9586 


LDY PlYP 


9598 CIL STft PLRl.Y 


9688 


STA PLR1+$64,Y 


9618 


STA PLR3,Y 


9628 


STA PLH3+$64,Y 


9638 


IHY 


9648 


DEX 


9658 


BPL CIL 


9668 


RTS 


9678 ; 




9688 ; 


the ghosties 


9698 ; 




9788 PDFl .BYTE $1C, $3E, S6B, $ 


9716 


.BYTE $7F,$63,$7F,$7 


9726 


.BYTE $7F,$7F,$DA,$6 


9736 ; 




9746 ; 


Move the ghosts 


9756 ; 




9766 MGHOST INC GK 


9776 


IKC GXl 


9786 


LDA GX 


9798 


STA HP0SP8 


9888 


STA HP05Pe+2 


9818 


LDA GXl 


9828 


STA HPOSPl 


9838 


STA HPOSPl+2 


9848 


RTS 


9856 ; 




9868 ; 


near out ail plyrs 


9878 ; 




9888 CLPLRS LDX tt8 


9898 


TXA 


9988 CPl STA PLR8,X 


9918 


STA PLR1,X 


9928 


STA PLH2,X 


9938 


STA PLR3,X 


9948 


INX 


9958 


BNE CPl 


9968 


RTS 


9978 ; 




9986 ;chekc for collisions 


9996 ;send anyone hit back to 


816688 


;beginning of naze 


616816 


i 


818626 


CHKC8L LDA $De84 


816636 


STA COLS 


618648 


AND ttl 


616658 


BEQ KB 


816668 


FIR JSR ERSDl 


616878 


LDA ttl 


616888 


STA DIX 


816698 


LDA ttll 


616188 


STA DIY 


618116 


JSR SHMDl 


816128 


RTS 


616138 


KB LDA COLS 


616146 


AND »4 


616158 


BEQ TRPl 


818168 


SCD JSR ERSD2 


616178 


LDA ttl 


618188 


STA D2X 


816198 


LDA ttll 


816286 


STA D2Y 


816218 


JSR SHMD2 



816228 


RTS 






618238 


/ 






816248 


TRPl 


LDA $D685 


818258 


STA 


COLS 




816266 


AND 


ttl 




816276 


BEQ 


KC 




816288 


J MP 


FIR 




818298 


KC LDA COLS 




818368 


AND 


tt4 




818318 


BNE 


SCD 




818326 


RTS 






818338 








816348 


;the 


vertical 


blank interrupt 


816358 


;Make 


soMe sounds. Move the 


816368 


;ghosts, & change their 


818378 


; luMinance 




818388 








818398 


UBI LDA UFLG 


;off or 


816468 


BNE 


WW 


;on 


618418 


LDA 


tt8 


;no sound 


816428 


STA 


$D286 




816438 


STA 


$D281 




818448 


BEQ 


NOV 




818458 


VUU JSR MGHOST 


818468 


INC 


GCNT 




816478 


LDA 


GCNT 


; f or luMinance 


018488 


AND 


tt3 


;changes in 


818498 


TAX 




;color 


818568 


STK 


GCNT 




618518 


LDA 


VPl.X 




618528 


STA 


$e2ce 




818538 


LDA 


VP2,X 




818548 


STA 


$82C1 




818558 


LDA 


TFLG 


;title flag 


818568 


BEQ 


NOCHK 


;don't chk for 


818578 


JSR 


CHKCOL 


;collisions 


818588 


/ 






818596 


NOCHK 


DEC TIM 


;on title 


816688 


LDA 


TIM 


j screen 


616618 


BNE 


NOV 




818628 


INC 


NTX 




818638 


LDA 


NTX 




818648 


AND 


tt3 


;piay notes 


816656 


STA 


NTX 




818668 


TAX 






818678 


LDA 


tt2 




816688 


STA 


TIM 




816698 


LDA 


NOTE,X 




816788 


STrt 


$D2e8 




816716 


LDA 


tt$A6 




818726 


STA 


$D281 




618736 


NOV JMP $E4e2 


;xit 


616748 


J 






616758 


;the Middle Maze 


616766 


i 






618778 


GAME2 


LDA tt <DL4 ;new 


816788 


STA 


$6238 


j'display list 


818796 


LDA 


tt >DL4 




618886 


STA 


$8231 




618818 


JSR 


STOPAL 


;no ghosts 


818826 


LDA 


tt$94 


;screen coirs 


818838 


STA 


$62C4 




816846 


LDA 


tt$F6 




618858 


STA 


$82C5 




816868 


LDA 


tt$44 




818876 


STA 


$82C6 




618888 


JSR 


PRPMID 


;prepare Middle 


816898 


JSR 


GENMZ4 


;Maze S generate 


618986 


JSR 


PUTGLD 


;fill w/gold 


618918 


LDA 


tt62 




816928 


STA 


$822F 


;screen on 


818938 


JSR 


COLLECT 


;so for gold! 


818948 


RTS 






816958 


/ 






818966 


;fill 


the Maze 


with gold 


818978 


# 






818988 


PUTGLD 


LDA tt <MAZE8 


816998 


STA 


LO 




611686 


LDA 


tt >MAZEe 




811818 


STA 


HI 




811826 


LDA 


tto 




611636 


STA 


GOLD 




611646 


STA 


GOLD+1 





APRIL A.N.A.L.Q.G. CompuCing 



eiiese 

011866 

811078 

811888 

811898 

811188 

611118 

611128 

611138 

611148 

811156 

811166 

811178 

811188 

611196 

611266 

611216 

611228 

611236 

611246 

611256 

611268 

611276 

611286 

611296 

611366 

611318 

611326 

611336 

611346 

611356 

611368 

611376 

611386 

811398 

611466 

611418 

811428 

611438 

611446 

811458 

611466 

611476 

611486 

611498 

611588 

611516 

611526 

611536 

611546 

811558 

611566 

611576 

611588 

611598 

611666 

811616 

811628 

611636 

611646 

611656 

611668 

811678 

611688 

611698 

611768 

611718 

611726 

611738 

811746 

611758 

611768 

611778 

811788 

611796 

611888 

611816 

611826 

611838 

611848 

611858 

811868 

811876 



LDX ttl8 
GLL LDA LO 

CLC 

ADC tt4e 

STft LO 

LDA HI 

ADC »8 

5TA HI 

LDV Ol 
GLP LDA CLO),Y 

BNE GNV 

LDA tt7 ;90ld 

STA CLO),V 

INC GOLD 

LDA GOLD 

BNE GNV 

INC GOLD+l 
GNV INV 

CPV »36 

BNE GLP 

DEX 

BPL GLL 

LDA GOLD 

SEC 

SBC tt2 

STA GOLD 

LDA GOLD+1 

SBC tta 

STA GOLD+1 

RTS 

j 

;here's where we fight over 

;the gold coins 

COLLECT LDA ttl ; Staring pes. 

STA DIX 

LDA ttlO 

STA DIY 

JSR MCHl 

LDA »37 

STA D2X 

LDA ttl6 

STA D2V 

JSR MCH2 

LDA tte 

LDX tt3 
sec STA SCR1,X 

DEX 

BPL sec 

LDX ni ; screen scores 

LDA tt$16 
SCF STA SCRTXT+16,X 

STA SCRTXT+16,X 

DEX 

BPL SCF 



;show Man 
;2nd Man 



;show hiM 
;zero scores 



CSl JSR MCHl 

LDA $6278 

CMP »$6F 

BEQ CS2 

CMP tt7 

BNE CTL 

JSR CLR 

BCS CS2 

JSR CHGLDl 

JSR PCHRl 

INC DIX 
CGEN JSR MCHl ;shOW MOUe 

JSR MAITL ; delay 

JMP C52 ;piyr 2 



;show 1st Man 
;stick 6 



;Move right? 
;chk 4 wall, etc 

;chk for gold 



CTL CMP «11 
BNE CTU 
JSR CLF 
BCS CS2 
JSR CHGLDl 
JSR PCHRl 
DEC DIX 
JMP CGEN 

CTU CMP ni4 
BNE CTD 
JSR CLU 



; left? 



;up 



811888 
611896 
811988 
811916 
611926 
611938 
811946 
611956 
811966 
811976 
811986 
811996 
812888 
812818 
812828 
812838 
812846 
812856 
812866 
812876 
612686 
812696 
612186 
612118 
612128 
612136 
812148 
812158 
612168 
612178 
812186 
812196 
612288 
612218 
612228 
812236 
812248 
612258 
612266 
612276 
612286 
612298 
612388 
612316 
612326 
612338 
812348 
812358 
612368 
812378 
612386 
612398 
612486 
612418 
812428 
812438 
612446 
612458 
812468 
812478 
812486 
612498 
812588 
812516 
612526 
812536 
612546 
812558 
812566 
612578 
612588 
612598 
812688 
812618 
812626 
612636 
612648 
612656 
612668 
812678 
812688 
812698 
812788 



BCS CS2 
JSR CHGLDl 
JSR PCHRl 
DEC DIV 
JMP CGEN 
CTD CMP «13 ;down? 
BNE CS2 
JSR CLD 
BCS CS2 
JSR CHGLDl 
JSR PCHRl 
INC DIV 
JMP CGEN 



; repeat for 
;2nd palyr 



CS2 JSR MCH2 
LDA $8279 
CMP tt$8F 
BEQ MHIN 
CMP tt7 
BNE ELF 
JSR C2R 
BCS MMIH 
JSR CHGLD2 
JSR PCH2 
INC D2X 

EGEN JSR MCH2 
JSR MAITL 
JMP HMIN 

ELF CMP ttll 
BNE ELU 
JSR C2L 
BCS MMIN 
JSR CHGLD2 
JSR PCH2 
DEC D2X 
JMP EGEN 

ELU CMP »14 
BNE ELD 
JSR C2U 
BCS MMIN 
JSR CHGLD2 
JSR PCH2 
DEC D2V 
JMP EGEN 

ELD CMP »13 
BNE MMIH 
JSR C2D 
BCS MMIN 
JSR CHGLD2 
JSR PCH2 
INC D2V 
JMP EGEN 



;has anyone won? 

MMIN LDA SCRl ; get SUM 
CLC 

ADC SCR2 
STA TOIL 
LDA SCRl+1 
ADC SCR2+1 
STA TOTL+1 
CMP GOLD+1 
BNE FLIP 
LDA TOIL 
CMP GOLD 
BNE FLIP 



;does SUM = 
;total gold? 



RTS 



;soMebody won 



2B 



FLIP LDA $D61F ;select? 

CMP U5 
BNE FFP 
PLA 
PLA 

JMP START ;yes, Start owr 
FFP JMP CSl 

;chk for walls 

CLR LDA DIV 

APRIL A.N.A.L.O.G. Computing 



ei27ie 

812726 

612738 

612746 

612758 

812768 

812778 

812786 

612796 

612866 

612818 

812826 

812836 

612846 

612856 

612866 

812876 

812886 

612896 

812966 

612916 

812926 

612936 

812948 

612956 

812966 

612976 

812986 

612998 

613666 

813616 

613626 

813838 

813648 

613656 

813868 

613676 

813886 

613698 

613166 

613116 

813126 

613136 

813146 

813158 

613168 

613176 

613186 

613196 

613288 

813216 

613226 

813236 

613246 

613256 

613266 

613278 

613286 

813296 

813366 

613316 

613326 

613338 

613346 

613356 

613366 

813378 

613386 

613396 

813466 

613418 

613426 

613436 

613446 

613456 

813466 

813476 

813488 

613496 

813566 

813516 

813526 

613536 



LDX DIX 

INK 
CLLL J5R MUL46 

LDV n6 

LOA CI),Y 

CMP U6 

BEQ MALL 
GG CLC 

RT5 
MALL SEC 

RT5 

CLF LDA DIY 
LDX DIX 
DEX 
JMP CLLL 

CLU LDY DIY 
DEY 
TVA 

LDX DIX 
JMP CLLL 

CLD LDY DIY 
IHY 
TVA 

LDX DIX 
JMP CLLL 

;chks for wall for nan 2 

C2R LDA D2Y 
LDX D2X 
INX 
JMP CLLL 

C2L LDA D2Y 
LDX D2X 
DEX 
JMP CLLL 

C2U LDV D2Y 
DEV 
TVA 

LDX D2X 
JMP CLLL 

C2D LDY D2Y 

INY 

TVA 

LDX D2X 

JMP CLLL 
f 
;zero out top 

PCHRl LDA DIY 

LDX DIX 

JSR MUL4e 

LDY ste 

LDA tt6 

5TA CIJ,Y 

RTS 
i 

;zero out bot Man 

PCH2 LDA D2V 

LDX D2X 

JSR MUL4a 

LDV tt6 

TVA 

5TA (IJ,Y 

RTS 
i 

;show top Man 

MCHl LDA DIY 
LDX DIX 
JSR MUL4e 
LDV tta 
LDA tt8 
5TA tIJ.Y 
RTS 



613548 

613556 

813566 

613576 

613586 

813598 

613666 

813618 

613628 

813636 

613646 

613658 

813666 

613676 

813688 

813696 

813766 

613716 

613726 

613736 

613748 

613756 

613768 

613778 

813786 

813796 

813866 

613818 

613826 

813838 

813848 

613858 

813866 

613876 

613886 

813898 

613988 

613916 

613926 

613938 

813946 

613956 

613966 

613976 

613988 

613998 

614666 

614616 

814828 

814838 

814646 

614858 

614868 

814676 

614686 

614696 

614168 

814116 

614126 

614136 

614148 

814156 

614166 

814176 

814186 

614196 

614266 

614218 

814226 

614236 

614246 

814258 

814266 

614276 

814286 

614296 

614366 

814316 

814326 

814336 

614346 

614356 

814366 



;show bot Man 

MCH2 LDA D2V 
LDX D2X 
JSR MUL46 
LDY n6 
LDA U9 
STA CI),V 
RTS 

;Mult X 48 to get screen pos 

MUL46 ASL A 

STA LHD 

LDA »6 

ROL A 

STA HHD 

ASL LHD ;x4 

ROL HHD 

ASL LHD ;X8 

ROL HHD 

LDA LHD 

STA ML 

LDA HHD 

STA MH 

ASL LHD ;xl6 

ROL HHD 

ASL LHD ;32 

ROL HHD 

LDA LHD 

CLC 

ADC ML 

STA ML 

LDA HHD 

ADC MH 

STA MH 

LDA tt <MAZE6 

CLC 

ADC ML 

STA I 

LDA U >MAZEe 

ADC MH 

STA I+l 

TXA 

CLC 

ADC I 

STA I 

LDA I+l 

ADC tta 

STA I+l 

RTS 
I 

;is it gold we are Moving 
;onto- for top Man 

CHGLDl CMP tt7 ;gold? 

BEQ GDI J yes 

RTS 
GDI JSR BELL J sounds 

INC SCRl ;inc. score 

BNE DGA 

INC SCRl+1 

DGA LDX tt2 ;show score 

INC SCRTXT+ie,X 
LDA SCRTXT+16,X 
DGC CMP tt$lA 
BCC FST 
LDA tt$18 
STA SCRTXT+18,X 
DEX 

BMI FST 

INC SCaTXT+16,X 
LDA SCRTXT+ie,X 
JMP DGC 

FST JSR ADDHl ; add 1 to hi 



LDX It2 

INC FSC1,X 

LDA FSC1,X 
FSR CMP tt$lA 

BCC DGB 

LDA tt$18 

STA FSC1,X 



; scores 



APRIL A.N.A.L.O.Q. Compucing 



814370 

814386 

814398 

814488 

814418 

814428 

814438 

814448 

814458 

814468 

814478 

814488 

814498 

814588 

814518 

814528 

814538 

814548 

814558 

814568 

814578 

814588 

814598 

814688 

814618 

814628 

814638 

814648 

814658 

814668 



DEX 

BMI DGB 
IMC F5C1,X 
LDft FSC1,X 
JMP FSR 
DGB RT5 

•do saHe for bottoM nan 

CHGLD2 CMP tt7 

BEQ EGl 

RT5 
EGl J5R BELL 

INC SCR2 

BNE EGA 

INC SCR2+1 
EGA LDX n2 

INC 5CRTXT+16,X 

LDfl 5CRTXT+16,X 
EGC CMP ttSltk 

BCC FSU 

LDA tt$ie 

5TA 5CRTXT+16,X 

DEX 

BMI FSU 

IMC SCRTXT+16,X 

LDA 5CRTXT+16,X 

JMP EGC 

FSU JSR ADDH2 



814678 LDX tt2 

814688 IMC FSC2,X 

814698 LDA FSC2,X 

814788 FSU CMP tt$lA 

814718 BCC EGB 

814728 LDA »$ie 

814738 STA F5C2,X 

814748 DEX 

814758 BMI EGB 

814768 IMC FSC2,X 

814778 LDA FSC2,X 

814788 JMP FSU 

814798 EGB RT5 

814888 ; 

814818 ; interHission tine 

814828 jshow current scores 

814838 ; 

814848 MTRMSS LDA » <ILST 

814858 STA $8238 

814868 LDA tt >ILST 

814878 STA $8231 

814888 JSR STOPAL 

814898 SSI LDA $8284 

814988 BME SS2 

814918 RRl LDA $8284 

814928 BEQ RRl 

814938 RTS 

814948 SS2 LDA $8285 

814958 BNE SSI 

814968 RR2 LDA $8285 



^ HACK PACK 



ALPHA SYSTEMS Is constantly Innovating to ptovMe more power 
tor your 8-bit Atorls 



Special OFFER 

The Alpha Systems HACK PACK contains all our 

tinesi products for making Bock-up copies. 

Analyzing. Understanding and Protecting your 

Atari programs It comes complete with Atari 

Protection Techniques (Book and Disk I), Advanced Protection Techniques (Book and Disk II), The 

Chipmunk, The Scanalyzet, Ttie linpersonator and Disk Pock 1 000, Worth over S 1 50 Get them all 

for the special price ol Just $99.95 

Atari Software Protection Techniques Vol I & II 

These Book and Disk pockages detail the mast odvanced copy protection methods in use lodoy They 
guide you through the tiiethods used to create the protection as well as the copying techniques to get 
around them. They include information on Rireaking ■ Hacking • On-line security • Black boxes • Self- 
destructing programs • Pirate bulletin board systems • Logic bombs • New piracy lows • Hardware 
dato keys • Weak sectoring fPhantom, Fuzzy and unstable sectors) • Overfilled tracks • CRC errors 
Bank Select cartridges and MUCH, MUCH MORE The disks include automatic program protectors. 
Protection Scanners, directory hiding and more 
BOOK I and DISK i $24.95 

BOOK II (Advanced protection) and DISK II ^24.95 
Special Offer, Order both sets for Only $39.95 

CHIPMUNK 

Automoric Disk Bock-Up System, Make perfectly running unprotected back-up copies ol hundreds ol 
the most popular Atan programs. Chipmunk's sophisticated piogromming Automoticaliy linds and 
REMOVES copy protection from most Atari progroms Back-up even heavily protected programs with 
ease Finally a back-up system llial needs no special hardware or skills 
(II you need a full list of what Chipmunk copies, call or write for our free cotaiog) $34.95 






PARROT II 

An All New Parrot sound digitizer lor your Atari Poffot II is a 
sophislicated new hardware device Ihal plugs inio your joystick 
[KDfl. Parrot il tios two inputs. One tor a microphone ond one fot a 
powered source sucti as a tape player radio or ComDoct Disk. 
The Powertui Parrot II software lets you record sounds into yout computer and ploy Itiem back on ony 
Atori, Pairol 11 turns your computers keyboord into a musical inslrumeni with nine different sounds 
covering three ocloves each. The sounds can be anything, a dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot il lets you modify the sounds on a graphic display to create brand new sounds and special 
effects. Best of all, the sounds and voices'can be put into your own programs ihat con be used on 
any standard Atari Explore the world of digital sound ond music ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrot $4.95 
MRROT II Demo Disk (Does not require Parrot to run) $5.00 



•■^ i«/ith 



POP-N-ROCKER 



Scanolyter Aulomaticaliy scon & analyze commercial programs Unlock prograirimmg secrets and 
teorn from the masters $29.95 

Impersonator Carlndge to Disk bock up system. Create running back-up copies of any cartridge 
-—aftft (up,tol6K) $29.95 

tJS>* CHEAT 

Get more from your gomes with CHEAT Tired of spending days Irying to beat a gome? Tired ol getting 
stuck |ust when you need anothei life' Cheat is an innovative new product that gives you the chance 
you need to beat your tovorife games Cheat works with hundreds of Atari gomes to give you 
unlimited lives or power End the frustration and gel hours mote enjoyment from your gomes (Coil or 
wrilG Aiplia Systems for our tree coialog wiih a lull list ol the programs Itiol work wilh Cheal) ONIY $24,95 

BASIC TURBOCHARGER 

NOW for the first time a BASIC programmer con get the power, flexibility and incredible speed of 
machine languoge. BASIC TURBOCHARGER is a book and disk package that contains over 150 
ready to use machine language routines Complete instructions show how to odd tliem to your own 
BASIC programs to get these features and more: • Smooth Sctolling • Player/IVlissile control • Load & 
Save Picture files • Soriing and Searching • Special Effects Graphics • Incredible Speed • l^uch, Much 
More • Over 1 50 programs You've heard of the power o( Assembler, now harness it lor your own 
needs. $24.95^^^^^— 





216-374-7469 

VISA & MASTERCARD, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



fast paced, mulli-pioyer tiivia gome that mixes questions 

with reol songs (digitized 
with Porrot). Be the first to identify the songs and answer the music trivia questions. Pop-N-Rocker 
comes wilh three data disks and lets you odd new questions so it will never get old, You can use a 
Parrot Sound digitizer to odd new songs too! Use any kind of music from Rock to Classical to 
Nursery Rhymes A new concept in entertainment and a perlect add-on for P arrot. _ $24.95_ 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into o digital portrait studio This complete package lets ] 
you capture, save & print digital images from youi Video Camera, VCR 
or TV. COMPUTEREYES hardware plugs directly into your joystick ports tor 
easy use Print your picture on a 6 foot poster $ii9.95 

ComputerEyes camera system 

Comes complete with everything above, plus a black and white video ^ " -^ A^ 

camera and connecting cable. $329.95 mejmi'^mm 

Graphics 9 Software - Add a new dimension to your COMPUTEREYES giant WALL SIZED POSTERS. 

pictures captures images in 16 shades of grey $12.00 

Magniprintll + 

Easily the most powerful print program avoilabte lodoy Print graphics from almost any (ormol in 

hundreds ol shapes, sizes, and shades Supports color printing and lets you create giant posters. 

Mogniprmt II + lets you stretch and squeeze, invert, odd text, adjust shading ond much more 

Worf<s with EPSON, NEC, Citoh. Panasonic, Gemini. Star, XMM801. and compatible printers (850 

intenace or equivalent required), $24.95 

Graphics Ik'ansformer 

Now you can combine the most poweriul features ot all your graphics programs. Create print shop 

icons from a Koala pad picture, from a photo digitized with ComputerEyes, or any picture file 

Graphics Transformer lets you Shrink, Enlarge and Merge pictures tot unequoled (lexibility, $22.95 

YOUR ATARI COMES ALIVE 

SAVE I^ONEY Finally on alternative lo buying expensive computer add-ons Your Atari Comes Alive 
shows you how to built them yoursell. Tins 'How-To' book and disk package gives you complete 
step by step instructions and programs needed to buill and control these exciting devices and MORE 
• Light Pen • Light & Motor Controlleis 'Alarm Systems • \toice Recognition • Envifonmental Sensors 
•Data Decoders • More than 1 50 pages. Itour Atari Comes Alive $24.95 



ALPHA SYSTEMS 1012 SKYLAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 qomes 
on a disk) Free wilh ony ordDt of 3 or more ilems Include S3.0U slip 8f hdig (US Conado) OHIO res odd 5'/2% soles Jox, 
Foreign orders add S8.00 sfip & hidg Coll ot write (or tree cotolog, Cuslomer Service Line (216)467-5665 M-F 9-3, 



CIRCLE #107 ON READER SERVICE CARO. 
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Attention 
Programmers! 



ANALOG Computing is interested in progranns, articles, and software review sub- 
missions dealing with the Atari honne computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number 



Send your programs and articles to: 

ANALOG Computing 

P.O. Box 1413-M.O. 

Manchester, CT 06040-1413 



continued from page 9 



JOYSTICKS 





means that joystick zero is moved up. 


0- 


means that joysticl< zero is moved down. 


0— 


means that joystick zero is moved left. 


— 


means that joystick zero is moved right. 


— 


means that joystick one is moved up. 


_.o 


means that joystick one is moved dovi^n. 


-0 


means that joystick one is moved left. 





means that joystick one is moved right. 


PADDLES 




0— 


means that paddle zero's button is pressed. 


— 


means that paddle ones' button is pressed. 


-0 


means that paddle two's button is pressed. 





means that paddle three's button is pressed. 



Figure 1. PORTA (paddles/joystick) bit 
chart 



Substitute "is not" for "is" in tiie preced- 
ing descriptions if tiie bit is set to 1. 

Tiie siiadow registers for PORTA in tiiis 
sense are STICKO and STICKl (632 and 633) 
and PTRIGO tiirougli PTRIG3 (636 tlirougli 
639). 

If Bit 2 of PACTL is set, tlien PORTA 
writes to tiie direction-control register. A 
direction-control register, as the name im- 
plies, is used to specify the direction that in- 
formation (data) is traveling on the various 
port pins. What are port pins? Take a close 
look at the controller ports and you can see 
them. They are numbered 1 through 5 on the 
top row (left to right) and 6 through 9 on the 
bottom. PORTA only deals with 1 through 
4; Bits through 3 represent Pins 1 through 
4 on Jack 1, while Bits 4 through 7 represent 
Pins 1 through 4 on Jack 2. When Bit 2 of 
PACTL is set, a bit set to 1 in PORTA means 
that the corresponding pin will be used for 
output. Similarly, a bit set to means that 
pin will be used for input. 

You may be wondering what the other port 
pins are used for. Pin 5 is used for the right- 
paddle value (POTl/3/5/7), Pin 6 for the 
joystick button (TRIGO/1/2/3), Pin 7 supplies 
five volts to the paddles (this pin isn't con- 
nected in the joysticks). Pin 8 is the ground 
(for both joystick and paddle), and Pin 9 is 
the left-paddle value (POTO/2/4/6). 



PORTB 

54017 



D301 



PORTB is the same as PORTA, except it's 
used with Controller Jacks 3 and 4 rather than 
2 and 3. Also, its function is determined by 
PBCTL, not PACTL. 

The shadow registers for PORTB and 
STICK2 (634 and 635) and PTRIG4 through 
PTRIG7 (640 through 643). 



PACTL 
54018 



D302 



If you have a cassette player hooked up 
to your computer, try putting a music cas- 
sette in it, pressing PLAY and then enter- 
ing the following statement: 

POKE 54018, 52 

This turns on the cassette motor and lets 
you play music or voice through the TV 
speaker. To turn off the motor, use the fol- 
lowing: 

POKE 54018, 60 

Other uses of PACTL, which is also called 
the "Port B Controller," are shown in Figure 

2. 



A few words on the preceding values be- 
fore we move on. PACTL is initialized to 60, 
which means that the cassette motor is turned 
off (Bit 3) and PORTA will read and write 
to the first two controller jacks (Bit 2). This 
piece of information should hopefully clear 
up a question you might have had concern- 
ing mrning the cassette motor on and off. The 
reason the POKEs I gave you earlier are 
different than the bit values above is that Bit 
2 should be on in order for the joysticks and 
paddles to work properly. That's why we use 
52 and 60 in the POKEs instead of 48 and 56. 



PBCTL 
54019 



D303 



This is the Port B Controller and has the 
same functions as PACTL with the follow- 
ing differences: 

1. Bits and 7 deal with the "peripheral 
interrupt available" interrupts. 

2. Bit 2 deals with PORTB. 

3. Bit 3 no longer controls the cassette mo- 
tor but is instead used for peripheral com- 
mand identification. It is not clear anywhere 
as to exactly what this means (although most 
sources also label it as the "serial bus com- 
mand line"). It is initialized to 1. 

POKEing 54019 with a 56 tells the com- 
puter to take the next POKE to 54017 as a 
data-direction code. This is a binary code 
with each bit corresponding to a pin on the 
jacks. If the corresponding bit is 1, the pin 
is defined as output, and if it is 0, then the 
pin is input. Once you have completed that 
section of the code, you may POKE to 554017 
whatever you may want to send out. If you 
POKE there and then PEEK the same loca- 
tion, you will get back the code you sent, as 
if it were a RAM location. This means that 
if you sent the lower four bits as output and 
the upper four bits as input, you can send a 
code out, then read the input combined with 
the code you sent. This makes scanning the 
controllers simple to set up in your software. 
The value you read is what you sent plus 16 
times the value that your device sends back. 

Here is an example setting up Port B as 
output: 

188 POKE 54619,56 
lie POKE 54817.255 
128 POKE 54815,66 

APRIL A.N.A.L.O.Q. Computing 



-011—00 


(48) 


-011—01 


(49) 


-011-00- 


(48) 


-011-10- 


(52) 


-0110-0- 


(48) 


-0111-0- 


(56) 


1011—0- 


(176) 



disables peripheral A interrupts. 

enables "peripheral proceed line available" interrupts 
(IRQ, vectored through VINTER at locations 514 and 515). 
means that PORTA above will write to the direction con- 
trol register. 

means that PORTA will read and write to the first two 
controller jacl<s. 

turns the cassette motor on (also called peripheral mo- 
tor). 

turns the cassette motor off. 

means that a "peripheral proceed line available" inter- 
rupt has occurred. You cannot write to this bit, but rather 
clear it by PEEKing PORTA. 



Figure 2. PACTL "Port B Controller" bit 
chart 



The 56 tells the ATARI that the next POKE 
to 54017 will be in a direction-control code. 
It is in binary, so the 255 sets up all eight 
pins for output. The 60 is then sent out. 



Noname 
54020-54271 



D304-D3FF 



Here we are at the end of the useful PIA 
locations, once again faced with lots of un- 
used locations, as in all of these. 

ANTIC 

We found out previously that the G/CTIA 
chip converts information about the screen 
into a form that the television set can under- 
stand. It gets most of this information from 
ANTIC, which in turn gets it from you. 

ANTIC is like a computer within a com- 
puter. It has its own special program, called 
the display list, which has its own special 
commands. These commands tell ANTIC 
such things as how the screen is supposed to 
look and where to find the data that is to ap- 
pear on it. But we already know this from 
our discussion at SDLSTL (560,561). AN- 
TIC also takes care of the Non-Maskable In- 
terrupts (NMIs), fine scrolling and various 
pointers, all of which will affect the way the 
screen will appear. Let's take a look. 

APRIL A.N.A.L.O.Q. Computing 



DMACTL (POKE only) 

54272 D400 

DMACTL controls DMA (Direct Mem- 
ory Access). Since there is a wonderful 
description of it at its shadow register, 
SDMCTL (559), I won't repeat myself 
here. There are, however, two more things 
to add. First of all, DMACTL must be used 
along with GRACTL (53277) when turn- 
ing on players and missiles. Secondly, both 
DMACTL and GRACTL are initialized to 
34. 

CHACTL (POKE only) 

54273 D401 

CHACTL makes various changes to the 
way inverse characters appear and also al- 
lows you to make all characters appear up- 
side down (what fun!). See its shadow 
register CHACT at Location 755 for a com- 
plete description. 

DLISTL, DLISTH (POKE only) 
54274, 54275 D402, D403 

DLISTL/H specifies the address of the 
beginning of the display list. See its shadow 
register, SDLSTL, at Locations 560 and 
56L 



HSCROL (POKE only) 
54276 D404 

Fine scrolling is by far one of the most 
impressive features the Atari has to offer. 
We've all been impressed by games that 
have smoothly scrolling playfields and 
wondered, no doubt, how we could do it 
ourselves. HSCROL and VSCROL are the 
way, but unfortunately, machine language 
is required to get the kind of effects you've 
seen. Although fine scrolling can be done 
from BASIC, it is not nearly as smooth as 
machine language and is darn near impos- 
sible when you're scrolling more than one 
or two Unes. So, although I'll cover the ba- 
sics here, if you really want to learn to do 
great fine scrolling from machine lan- 
guage, check out the excellent section on 
scrolling in De Re Atari. 

HSCROL allows you to fine scroll 
horizontally, one color clock at a time (a 
color clock is the size of a graphics mode 
7 pixel). It will affect every mode line that 
has Bit 4 set in the corresponding display- 
list instructions (see SDLSTL at Locations 
560 and 561). For example: 



108 


GRAPHICS 8 


lie 


!)LI5T=PEEK {560) +PEEK C5 


61) 


<756 




120 


POKE 


Dl.I5T*7.i8 


130 


LI5T 




140 


FOR 


::0LCLK=8 TO 15 


159 


POKE 


54276, COLCLK 


159 


FOR 


>ELfi¥=l TO 58 


170 


NEXT 


DELAY 


180 


MEHT 


COLCLK 


150 


GOTO 


140 



As you can see, there are a few things 
acting screwy here. First of all, why are the 
lines below the one being scrolled messed 
up? ANTIC expects to see 48 bytes per 
horizontally scrolling line instead of the 
regular 40. In our example, that causes the 
lower hues to get shifted over. The solution, 
and the reason that fine scrolling from 
BASIC is so difficult, is to give each 
horizontally scrolling line an LMS instruc- 
tion (again, see SDLSTL). This brings us 
to our second problem. Why aren't the 
characters in our example being scrolled 
all the way across the screen? HSCROL 
can only handle values between and 15. 
If you want to scroll more than 15 color 



clocks, what you have to do is set HSCROL 
back to and change the LMS addresses 
of the lines you're scrolling. In graphics 
mode 0, for example, you would subtract 
4 from each LMS address. Why 4? Each 
character in graphics mode is four color 
clocks wide, so the equivalent of setting 
HSCROL to 16 would be moving the 
characters four to the right, which is the 
same as subtracting 4 from the LMS ad- 
dresses. As I said before, this can get messy 
from BASIC. 

Let's look at a checklist of what you need 
to do to have fine horizontal scrolling: 

1. LMS addresses for all the lines you 
are going to scroll. 

2 .Bit 4 set on all the display-list instruc- 
tions for the lines you are going to 
scroll. 

3 . Screen memory set up properly to ac- 



VSCROL (POKE only) 
54277 D405 

VSCROL is like HSCRL, except it takes 
care of fine vertical scrolling. Bit 5 in the 
display list instructions is responsible for 
turning the scrolling on or off for each line 
(1 equals on), and the value you POKE into 
VSCROL is the number of scan lines you 
want to scroll the line upwards. Try the fol- 
lowing: 

les GRAPHICS 8 

118 CLIST=PEEKCE60)+PEEK(5 

615*256 

120 POKE DLI5T+7.34 

130 LI5T 

146 FOR 5CNLIH=8 TO 7 

150 POKE 54277, 5CHLIH 

169 FOR DELfiV=l TO 58 

i?0 NEXT DELflV 

188 SEKT SCNLIN 

199 GOTO 140 



you should take care of fine scrolling dur- 
ing VBLANK, which is another reason 
why machine language is necessary. 

One nice thing about vertical scrolling 
is that you only need to have an LMS in- 
struction on the first line to be scrolled. For 
example, try the following: 



100 GfifiPHICS 8 

110 DLIST:=PEEk£5&8)+PEEKC5 

611*256 

120 POKE i>LI5Tt3.93 

138 FOR IH5TR=& TO 2? 
146 POKE DLI5T+IN5TB,34 
158 NEXT IH5TR 

160 LIST 

170 Lii5L0=PEEKCDLI5T-t4) 

180 LM5HI::PEEKCDLI5Ti5) 

139 FOR 5CMLIN=0 TO 7 
208 POKE 542??.5CliLIfi 
218 FOR DELfiVri TO 58 
220 MEKT DElSY 

23S MtrtT SCfiLIN 
240 LM5LO=LHSLO+40 



The OS initializes NMIEN to 64, 

thereby enabling vertical blank 

interrupts. It also sets NMIEN to 64 

during the SETVBV routine 

mentioned at WBLKD (548,549). 

So what? 



count for the longer lines. 
And to do the actual scrolling: 
1 . Set HSCROL to (15 if you're scroll- 
ing from right to left). 
2. Add one to HSCROL (subtract 1). 
Remember that HSCROL is POKE 
only, so you'll have to keep track of 
its current value in a separate 
variable. 
3. If HSCROL equals 16 (minus 1), set 
it to (15) and subtract (add) four to 
each LMS address. If you're using 
graphics modes 1 or 2, add or sub- 
tract two instead of four, since each 
character in these modes is twice as 
wide as in graphics 0. 
4. Go to Stop 1. 

When you change the LMS addresses, 
you should also check to make sure that 
you haven't scrolled too far to the left or 
right. 



There are a few things to notice here. 
First of all, there's no problem with the 
lines below the one scrolling. Vertical 
scrolling does not expect extra bytes per 
line, so there is no need to worry about 
that. Secondly, try BREAKing the pro- 
gram and then POKE 54277,0. 

Where's line 120? In fine vertical scroll- 
ing, the line after the last line to be scrolled 
acts as a "buffer." The buffer provides 
data to scroll into the last scrolling line. To 
see this, get rid of line 190 and RUN the 
program again. You should always make 
sure that there is one nonscrolling line to 
act as the buffer. 

Our final thing to notice here is that ev- 
ery now and then the screen "jumps" a 
little while the program is running. This 
is because ANTIC does not like you chang- 
ing VSCROL (or HSCROL) while it's try- 
ing to draw the screen. That means that 



250 IF LM5L0>255 THES LH5L 
0::LHS1.0-256 ; LM'^HI^LMSHI^i ; 
POKE LH.I5T+5,LHSHI 
268 POKE C-LI5T+4.LH5L0 
278 GOTO 190 



This program makes all the mode lines 
(except the last) scrollable vertically and 
then proceeds to scroll them. It does not 
check how far it's scrolled so far, so it will 
eventually start showing garbage on the 
screen. See SAVMSC at Locations 88 and 
89 for an explanation of why. Press SYS- 
TEM RESET when you've had enough. 

One thing you'll also see when you run 
this program is the main problem with fine 
scrolling from BASIC: You can't change 
the LMS address and VSCROL at exactly 
the same time, so the whole screen appears 
to jump down a line every so often. 
Although there is no way to get rid of this, 
you can use SDMCTL at Location 559 to 

APRIL A.N.A.L.O.G. Computing 



turn off the screen while you change the 
LMS. This generates a brief "flash" in- 
stead of the jump. See for yourself; add the 
following lines to the preceding program: 

205 POKE 559,34 
255 POKE 555,8 

This is about the best you can do from 
BASIC. 

In Modes and 1, where the characters 
are eight scan lines high, VSCROL can 
vary from to 7. In Mode 2, where the 
characters are 16 scan lines high, it can 
vary from to 15. 



Noname 

54278 



D406 



This location is not used. 

PMBASE (POKE only) 

54279 D407 

Back in G/CTIA, we were discussing 
player/missile graphics. We discovered that 
we could either keep supplying G/CTIA 
with the player/missile data ourselves or 
have ANTIC do it for us. If ANTIC is do- 
ing it, then PMBASE is used to tell AN- 
TIC where the data is stored. It is the high 
byte of the address, so the address itself is 
equal to the value you POKE into 
PMBASE times 256. Because of some eso- 
teric requirements of ANTIC, PMBASE 
must be on a 2K boundary if you are us- 
ing regular-height players, and a IK 
boundary if you are using double-height 
players. How can you tell? If the value you 
are going to POKE into PMBASE is a mul- 
tiple of 4, then it's a IK boundary. It has 
to be a multiple of 8 to be a 2K boundary. 

Noname 

54280 D408 

Another location that isn't used. 

CHBASE (POKE only) 

54281 D409 

Another location with a shadow register 
that explains everything. See CHBAS at Lo- 
cation 756 for a description of the character- 
set address. 
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WSYNC (POKE only) 

54282 D40A 

Storing any value in WSYNC will cause 
the 6502 to stop everything until the end of 
the current scan line (HBLANK). This is 
very useful if you want to synchronize some- 
thing with the screen display. For an exam- 
ple and more information, see VDSLST at 
Locations 512 and 513. Note that VDSLST 
is not a shadow register for WSYNC. 

VCOUNT (PEEK only) 

54283 D40B 

VCOUNT keeps track of what scan line is 
currently being drawn. Actually, it increases 
by 1 every two scan lines, so multiply the 
value by 2 to get the true number. 

If you have more than one DLI, VCOUNT 
is a good way for your DLI routine to check 
which one is being processed. It can also be 
used to stimulate DLIs. For example, you 
might write a loop that waits for VCOUNT 
to reach a certain value before going on. This 
allows you to spend more time in a certain 
routine than DLIs allow, but it also wastes 
a lot of time waiting. 

There are a total of 262 scan lines on a 
screen (312 in Europe), so VCOUNT can 
range from to 130 (155 in Europe). 

PENH (PEEK only) 

54284 D40C 

This tells you the horizontal position of 
the light pen. See its shadow register, 
LPENH, at Location 564 for more infor- 
mation. 



NMIEN (POKE only) 

54286 D40E 

The last two bits of NMIEN are used to 
enable or disable the NMIs. They are used 
as shown in Figure 3. 

The OS initializes NMIEN to 64, thereby 
enabling vertical blank interrupts. It also sets 
NMIEN to 64 during the SETVBV routine 
mentioned at VVBLKD (548,549). So what? 
If you are writing a program where you will 
be using your own VBLANK routine and 
display-list interrupts, make sure that you en- 
able the display-list interrupts after you use 
SETVBV. There have been a couple of times 
when I couldn't figure out why my DLIs 
weren't working, only to discover that I had 
enabled them before I set up my VBLANK 
routine. 

A few of you out there may be thinking 
What about SYSTEM RESET? Isn 't that an 
NMIas well? Yes it is, but the computer does 
not allow you to disable it. Pressing SYSTEM 
RESET will always cause a warmstart to oc- 
cur. You can, however, store an address in 
DOSINI (12,13), since the OS jumps through 
DOSINI after it is done with the warmstart. 
Most machine-language programmers have 
DOSINI point to their program's initializa- 
tion routine. That way, the program will start 
over again if someone presses SYSTEM 
RESET (normally the OS would go to BAS- 
IC or reboot the system). 

NMIRES (POKE) and NMIST (PEEK) 

54287 D40F 

(POKE): POKEing any value here clears 
NMIST. 
(PEEK): The last three bits of NMIST are 



— 1 



1 



(32) enables the SYSTEM RESET interrupt. 

(64) enables the vertical blank Interrupt. 

(128) enables the display list Interrupt. 



Figure 3. NMIEN bit chart 



PENV (PEEK only) 
54285 D40D 

Same as the preceding, except it's the 
vertical position, and you should see 
LPENV at Location 565. 



used to identify what kind of interrupt has 
occured, as you can see in Figure 4. 

Unfortunately, since the OS has already 
taken care of NMIST and NMIRES by the 
time you can get to them, they don't really 
do you much good (you don't have to reset 

as 



NMIST during your DLI routine). 



Noname 
54288-54783 



D410-D5FF 



Floating-Point Package 

Locations 55296 througli 57343 hold the 
floating-point package, a series of routines 



to wonder. Suppose you had the following 
line in BASIC: 

256 K=3, 14159*37.5 



These locations, the rest of ANTIC, are 
currently unused. 



Noname 
54784-55295 

So are these. 



D600-D7FF 



-'--- 


(32) 


means that the SYSTEM RESET key has 
been pressed. 


-1 


(64) 


means that a vertical blank interrupt has 
occurred. 


1 


(128) 


means that a display list interrupt has oc- 
curred. 



The Operating System 

Finally, way back at the end of memory, 
we come to the Operating System itself, 
stored in a lOK ROM cartridge (inside 
your computer). This OS ROM includes 
not only the program for the Operating 
System (yes, the OS is just another pro- 



Figure 4. NMIST bit chart 



to do floating-point math. For an explanation 
of how the Atari stores floating-point num- 
bers, see VVTP at Locations 134 and 135. 
For information on the floating-point 
registers, see Locations 212 through 255. Fi- 
nally, for information on the input and out- 



When you type in such a line, BASIC sees 
the numbers as nothing more than a bunch 
of ATASCII characters. Before it can do the 
math, it must convert those characters into 
numbers it can understand. TImt's what AFP 
is for. BASIC will use AFP on both numbers 



There have been a couple of times 
when I coiildn 't figure out why my 

DLIs weren't working, only to 

discover that I had enabled them 

before I set up my VBLANK routine. 



gram), but also the floating-point package, 
the data for the Atari character set, the 
device handlers and various vectors. 

As I've mentioned, there are two ver- 
sions of the OS as of this writing. Version 
B includes some changes to get rid of a few 
of the bugs that appeared in Version A. 
These changes come mainly in SIO and the 
interrupt handler routines. The address- 
es I'll be giving below will be for Version 
A, since it is the best documented. You 
should see Appendix 5 on OS changes to 
determine which locations will not be the 
same in Version B. How do you know 
which version you have? If PEEK (58383) 
equals then you have Version B. 

If you need more specific information on 
the locations and routines described next, 
I suggest you study the appropriate part 
of the OS Listing. It is well commentated 
and relatively easy to understand. 

All locations in the OS are PEEK only. 

36 



put buffers see INBUFF at 243 and 244, and 
LBUFF at 1408 through 1535. 

The following is a list of some of the more 
useful routines in the package. The trigono- 
metric functions are in the BASIC cartridge 
starting at Location 48551. 

Note that in routines using the carry bit (as 
indicated), if the carry is set at the end of the 
routine, then an error has occurred. If it's 
clear, then everything is okay. 



(moving one of them to FRl), do the multipli- 
cation and then store the result in X. AFP 
is also needed for BASIC'S STR $ function. 



FASC 

55526 



D8E6 



AFP 
55296 



D800 



FASC does just the opposite of AFP. It 
takes a floating-point number from FRO and 
stores the ATASCn representation in LBUFF. 
This is necessary when a number needs to 
be printed on the screen and also for BA- 
SIC'S VAL function. 



This routine takes an ATASCII represen- 
tation of a number (e.g., "12345") and con- 
verts it to floating point (with carry). 
INBUFF points to the ATASCII number; 
floating-point register (FRO) will hold the 
result. 

You may be wondering why such a routine 
would be needed, and that's a very good thing 



IFP 

55722 



D9AA 



IFP is used to convert integers to floating 
point. It expects to see the integer in the first 
two bytes of FRO (Locations 212 and 213) and 
will store the result in FRO. 
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FPI 

55762 



D9D2 



This does the exact opposite of IFP (with 
carry). 



ZFRO 

55876 



DA44 



ZFRO sets all the bytes in FRO to 0. 



AFI 
55878 



DA46 



Sets FRx to 0, where x is the value in the 
X register. 



FSUB 
55904 



DA60 



FSUB subtracts FRl from FRO (with car- 
ry) and stores the result in FRO. 



FADD 
55910 



DA66 



Adds FRl to FRO (with carry) and stores 
the result in FRO (notice that FADD is actu- 
ally a part of FSUB). 



FMUL 
56027 



DADB 



Multiplies FRO by FRl (with carry) and 
stores the result in FRFO. 



FDIV 

56104 



DB28 



Divides FRO by FRl (with carry) and stores 
the result in FRO. 



PLYEVL 

56640 



DD40 



This one is a little complicated, so bear 
with me. PLYEVL evaluates a polynomial, 
such as 5Z''-I-10Z2+2Z+1 (read "five Z to the 
fourth plus ten Z squared plus two Z plus 
one"). For the sake of this routine, we'll write 
such a polynomial as: 
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SUM (I=N to 0)(A[I]ZO 

So, in the preceding example, N=4, 
A(0)=1, A(l)=2, A(2)=10, A(3)=0 (since 
there is no Z cubed) and A(4)=5. 

Why are we doing all of this? When you 
call PLYEVL, it expects you to provide the 
following information: 

Somewhere in memory: a list of the A( ) 
values, in floating-point format (BCD), start- 
ing with A(0). 

X register: low byte of the starting address 
of the preceding list. 

Y register: high byte of the starting address 
of the preceding list. 

Accumulator:N-l-l 

FRO:Z 

PLYEVL will take all of this and use it to 
evaluate the polynomial (with carry). The 
result will be stored in FRO. 



FLOOR 

56713 



DD89 



FLDOR will load FRO with the floating- 
point number pointed to by the X and Y 
registers. X should hold the low byte of the 
address of this number, Y the high. 



FLDOP 

56717 



DD8D 



FLDOP will load FRO with the floating- 
point number pointed to by FLPTR (252). 



FLDIR 

56728 



DD98 



FLDIR will load FRl with the floating- 
point number pointed to by the X and Y 
registers. X should hold the low byte of the 
address of this number, Y the high. 



FLDIP 

56732 



DD9C 



FLDIP will load FRl with the floating- 
point number pointed to by FLPTR (252). 



FSTOR 

56743 



DDA7 



FSTOR will store FRO in memory, start- 
ing at the address pointed to by the X and 
Y registers. X should hold the low byte of 
this address, Y the high. 



ESTOP 

56747 



DDAB 



ESTOP will store FRO in memory, start- 
ing at the address pointed to by FLPTR 
(252). 



FMOVE 
56758 



DDB6 



FMOVE moves the floating-point number 
in FRO to FRl. 



EXP 

56768 



DDCO 



EXP raises "e" to the FRO power and stores 
the result in FRO (FRO=e™°). 



EXPIO 
56780 



DDCC 



EXPIO, as you may have guessed, raises 10 
to the FRO power and stores the result in 
FR0(FR0=10™). Notice that it is actually 
part of the EXP routine. 



LOG 

57037 



DECD 



LOG figures out the natural logarithm 
(Base E) of FRO and stores it back in FRO. 



LOGIO 

57041 



DEDl 



LOGIO figures out the Base 10 logarithm 
of FRO and stores it back in FRO. Notice that 
it is part of the LOG routine. 

That about closes out this session. Be sure 
to stop by next month when we conclude the 
Master Memory Map series. See you then! PI 
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hat I consider to be the most important online 
resource is also the most overlooked. This 
resource is potentially more valuable than the 

contents of all the databases on DELPHI, and easily as 

accessible. 
The resource is, in a word, people. The expertise of 

thousands of computer users — as well as experts in 

almost all areas in which one can be an expert — is but a 

few keystrokes away when you're online. 
How? Via the communications tools you have available 

in the Atari SIG: E-mail, real-time Conference and the 

Forum. 
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I've discussed each of these at one time or 
another in this column, but the Forum only 
in brief. So, as promised last month, we'll 
take a very detailed look at what the Forum 
has to offer. 

If you haven't checked out the Atari SIG 
Forum yet, you're missing a lot of useful, in- 
teresting and just plain fascinating conversa- 
tion. And if you do use the Forum, are you 
aware of all the features it has to offer? Either 
way, read on to see what you've been missing! 



"threads." (A thread consists of an original 
message and all the replies to that message- 
including replies to the replies.) 



Getting There 



To get to the Forum, type FORUM at the 
Atari SIG menu. The Forum banner and 
prompt will scroll by: See Figure 1 



Information, Please 

When you enter the Forum, you are 
presented with quite a bit of information in 
a compact space. As you can see, the system 
keeps track of the number of messages avail- 
able (messages 1 through 37798 have been 
removed— a part of periodic housecleaning). 
The highest message I've read is listed too, 
which tells me that there are 23 messages I've 
not read. (As you'll learn, I can read all or 
none of these.) 



/ /_// 
/ / //_ 



/_ / //_// //I/ 
/ /_// L /_// 



The Voice of the Atari User 

Welcome to the ATARI Forum. 

Forum contains messages 37798 through 38448, 

Highest message you've read is 38425. 

You have 2 new Forum Messages 

Press RETURN to READ WAITING messages 

FORUM>Reply, Add, Read, "?" or Exit> ? Figure 1 



What is the Forum? 

The Atari SIG Forum is what online old- 
timers might call a "computer conferencing 
system." Since this description is easily con- 
fused with real-time conferencing (a la Atari 
SIG's Conference), it's easier to refer to the 
Forum as a public message system. 

A distinctive feature of the Forum is the 
organization of related messages into 



Commands 



The most important and most frequently 
used Forum commands are listed in the 
prompt. However, the Forum offers a plethora 
of commands for the sophisticated user, 
which I'll discuss in detail in a few para- 
graphs. 



Finally, the system tells me that two of the 
unread messages are addressed to me. 

Now let's take a look at what you can do 
with that information. 

The Forum Menu 
and Commands 

The Forum menu lists available options and 
commands. Type ? to see it: See Figure 2 



FORUM Menu: 



ADD New Message (Thread) 

REPLY To Current Message 

READ Message(s) 

FOLLOW Thread 

BACK to Previous Message 

DIRECTORY of Messages 

MAIL 

TAG Interesting Message 

FILE Message into Workspace 

FORUM>Reply, Add, Read, "?" 



FORWARD Message by Mail 

DELETE Message 

EDIT a Posted Message 

NEXT Message 

TOPICS (Set/Show) 

HIGH Message (Set/Show) 

HELP 

EXIT 



or Exit> 



Figure 2 
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(If you're using a 40-coluinn display, the 
menu will be displayed in one column rather 
than two.) 

Forum commands can be categorized by 
the kinds of functions they perform; 

* Entering and editing messages (this in- 
cludes replying to a message). 

-k Deleting messages. 

* Finding messages (using the Forum 
Directory to search for messages on single 



you address the message to a specific SIG 
member, he or she will be notified when he 
enters the SIG (and again on entering the Fo- 
rum) that a Forum message is waiting. 

(Note: The command FORUM can be used 
in place of ADD.) 

Replying to a Message 

To reply to a message, type REPLY at the 
FORUM prompt after reading the message. 



The Forum 's sophisticated 
directory system can be used to lo- 
cate messages by several criter- 
including date, subject. 



ta 



addressee or message number. 



or combined criteria). 

* Reading messages (by number, by 
search criteria, or by thread; and creating 
special groups of messages for later 
reference). 

•k Filing messages (copying messages to 
files in your Workspace). 

•k Accessing Mail (sending copies of mes- 
sages to others by E-mail, and replying to 
messages by E-mail). 

-k Getting help. 

Entering and Editing Messages 

There are two ways you can add a new mes- 
sage to the Forum: you can add an original 
message, or you can reply to an existing 
message. 

Adding a Message 

ADD initiates a new message and begins 
a new message thread. When you type ADD, 
you are prompted for an addressee for the 
message (type ALL if the message is to 
everyone), a topic for the message (one of the 
existing topics, which match the SIG's data- 
base topics), and the message's subject 
(whatever you want it to be). After you enter 
this header information, simply type in your 
message, and enter Control-Z when finished; 
the message will be automatically posted. If 



You will be prompted to enter the addressee 
of the message; press Return, and the mes- 
sage will be addressed to the person to whom 
you are replying, and the Topic and Subject 
headers will be filled in automatically. 
(Otherwise, you can type the name of a 
different addressee; the message will be re- 
tained in the Forum.) 

After you type your message, press 
Control-Z to post it. 

Note that when you reply to a message, 
your message becomes a part of the message 
thread of which the message to which you re- 
plied was a part. (Or, if the message to which 
you replied was a one-shot, a thread is creat- 
ed.) Thus, the commands that move through 
a thread (FOLLOW and BACK) will "find" 
your new message as well as others in the 
thread. If, however, you create a new mes- 
sage with the same subject using ADD, it will 
not be a part of the thread. This is important 
if you want to make sure your comments are 
read by anyone reading that particular thread. 

Editing Messages 

You can edit messages you have posted by 
typing EDIT followed by the number of the 
message, or by reading the message and then 
typing EDIT at the FORUM prompt. 

When you type EDIT, the message header 



is displayed, along with this prompt line: 
EDIT Text, Subject, Topic, "?" or Exit 

To see the Forum Edit menu, type ? at this 
prompt. The menu looks like this: 



FORUM EDIT Menu: 

TEXT of Current Message 
SUBJECT of Current Message 
TOPIC of Current Message 
SHOW Message Header 
HELP 
EXIT 

As you can see, you can edit the text, sub- 
ject or topic of a message. Commands avail- 
able here also redisplay the message header 
and get help. 

When you select SUBJECT or TOPIC to 
edit, all you have to do is type the new sub- 
ject or topic and press Return. If you change 
your mind, enter Control-C or Control-Z to 
cancel the change. 

When you select TEXT to edit, you will 
be using your default editor, OLDIE or EDT. 
To get help, type HELP or /HELP, depend- 
ing on which editor you're using. To save any 
changes, type EXIT or /EXIT. To cancel any 
changes type QUIT or /QUIT. 

Editing a message will not remove it from 
the thread. 

Deleting Messages 

The only Forum messages you can delete 
are those you've posted, and those addressed 
to you. 

To delete a message, type DEL followed 
by the message number, or read the message 
and type DEL at the FORUM prompt. 

Finding Messages in the 
Forum Directory 

The Forum's sophisticated directory system 
can be used to locate messages by several 
criteria including date, subject, addressee or 
message number. You can also locate mes- 
sages posted by a specific DELPHI member. 
These criteria can be used individually, or 
combined in any fashion you wish, in the 
form of qualifiers used with the DIRECTO- 
RY (DIR) command. 

Here's an example of how this works. If you 
were interested only in reading Forum mes- 
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sages on the subject of photos, you would 
enter the Forum and type DIR SUBJ Photo. 
The system would display a list of all mes- 
sages on that subject. If you wanted to get 
more precise, you could type DIR SUBJ Pho- 
to FROM KZIN to see a directory of all mes- 
sages from membemame KZIN on the 
subject of photos. 

The Directory is especially handy if you 
haven't been in the Forum for a while and 
several hundred messages have piled up dur- 



Again, you can combine criteria in vari- 
ous ways to specify just the messages you 
want to see. (Note that when you use SUB- 
JECT with DIR, the system looks for the 
specified character string anywhere in the 
subject header. Thus, if you type DIR SUBJ 
Test, you will see a directory of all messages 
that have the string "test" anywhere in the 
subject header. This could include such head- 
ers as "Testing Disks," "One Protester" or 
"Disk Test.") An extreme example might be: 



The TAG command allows you 
to create a small, temporary sub- 
set of Forum messages that you 
can manipulate later. 



ing your absence. You can browse the direc- 
tory for messages on a certain topic or ex- 
clude messages lower than a certain number 
by typing DIR xxxxx (which would show all 
messages from that number on). 

The fiill range of options available for use 
with DIR is: 

NEW: messages above your HIGH counter. 

CURRENT: the message you just read. 

TO: messages addressed to. 

FROM: messages posted by. 

WAITING: messages waiting for you. 

NONSTOP: nonstop mode. 

NS: short for NONSTOP 

PAUSE: pause on message for you. 

nnn:mmm: range of messages by number. 

+n or -n: skip forward or backward. 

TAG: messages you previously tagged. 

THREAD: messages related by REPLY. 

INITIAL: only the first message of a 

thread. 

FOLLOW: automatic FOLLOW thread. 

FT: short for FOLLOW. 

SUBJECT: messages by subject. 

WILDCARD: wildcard subject (* and % 

are special). 

TOPIC: restricted to one topic. 

ALL: for DIR NEW ALL, show messages 

you have read. 
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DIR SUBJ Atari FROM KZIN T0ANAL0G2 
35000. 

This would display all messages with the 
word "Atari" in the subject header, addressed 
by KZIN to ANAL0G2, with numbers 
higher than 35000. 

Reading Messages 

READ is the operative command in read- 
ing messages, but unless you intend to add 
a specification to the command, pressing 
Return will have the same effect as typing 
READ alone. 

You can use the same specifications with 
READ as with DIR. You can also read mes- 
sages by typing the number of a message 
(handy after you've used DIR). If you're not 
looking for specific messages, simply press 
Return to read the next unread (NEW) 
message. 

(Note: If you read a message by typing its 
number, pressing Return will display the next 
message in numerical sequence, rather than 
the next unread message. To "reset" the sys- 
tem to display only new messages, you must 
type READ NEW.) 

As mentioned earlier, if Forum messages 
addressed to you are waiting, you are noti- 
fied automatically when you enter the Atari 
SIG; you are notified again of waiting mes- 



sages when you enter the Forum area. DEL- 
PHI keeps track of whether you've read 
waiting messages and displays them first if 
you press Return when you first enter Fo- 
rum. If you read other messages before read- 
ing those addressed to you (by number or by 
qualifier), you'll have to type READ WAIT- 
ING to display unread messages addressed 
to you. 

Following Threads 

You can follow a message thread in forward 
or reverse order with the special commands 
FOLLOW and BACK. 

FOLLOW displays all messages that are re- 
plies to the current message and all messages 
that are replies to any of the replies. 

BACK does the same thing, but in reverse 
numerical order. This allows you to trace a 
thread back to its original message. 

Reading messages with FOLLOW or 
BACK will display messages you've previous- 
ly read, as well as unread messages. When 
you reach the end or beginning of a thread, 
the system notifies you that there are no more 
messages in the thread. 

Ta^in^ Messages 

The TAG command allows you to create a 
small, temporary subset of Forum messages 
that you can manipulate later with DIR or 
READ. This is useful if you see a message 
or messages that you want to refer to after 
you read other new Forum messages or which 
you'd like to download for future reference. 

To tag a message, simply type TAG after 
you read it. Later, you can type DIR TAG or 
READ TAG to see each message you've 
tagged. 

The group of tagged messages will cease 
to exist when you leave the Forum. (If you 
have a tagged message or messages waiting, 
DELPHI notifies you when you attempt to 
exit the Forum, at which time you can read 
the tagged message(s) or not, as you prefer.) 

Accessing Mail From the Fonim 

While the Forum is a public messaging sys- 
tem, it isn't entirely public. There are com- 
mands that allow you to reply to a member 
who posted a particular message by private 
E-mail and to send copies of messages to 
continued on page 66 
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Game Lo^ic 



Let's start off this section in a terribly 
cliche way. The dictionary defines logic as 
being a "way of reasoning." This in turn can 
be translated to a "way of analyzing," and 
that's exactly what this section is about. An 
arcade game does a lot more than look pret- 
ty. It has to analyze what's going on and come 
up with an appropriate response. But there 
are a lot of things that have to be analyzed. 
For example, what should be moved where! 
Have we reached the end of the game? The 
end of the level? Should the game become 
more difficult now? And so on. In a general 
sense, game logic refers to all decisions that 
the computer must make during the course 
of the game. We'll now take a look at the 
types of decisions and how to deal with them. 



Some Examples 



Let's start off by looking at some sample 
games and seeing what kind of logic is used 
in them. How about Pongl Is there any logic 
used in this game? Of course, although it's 
somewhat simple. First of all, the computer 
must decide where to move the player's pad- 



dles. Even though this is just a matter of 
checking the game controllers and moving the 
paddles accordingly, the computer has to 
check to make sure that the player isn't try- 
ing to move the paddles off the screen. 

Next, the computer moves the ball and 
checks to see if it has hit a paddle. If it has, 
then the computer has to figure out what an- 
gle to bounce it off. If it hasn't, then the com- 
puter has to check to see if the ball is off the 
screen, in which case one of the players has 
scored. 

Finally, if one of the players has scored, 
is it the end of the game? If not, the com- 
puter has to serve the next ball. Believe it or 
not, this is just a simplified version of what's 
going on. Pretty complicated for what you 
thought was just a simple game, right? Let's 
look at something a little (lot) more com- 
plicated. 

Pac-Man seems at first to be a relatively 
simple game. All it consists of is a maze, 
some dots, four ghosts and the player. For 
now, let's forget about the ghosts and look at 
what logic is involved in simply moving the 
player around the maze. First of all, the com- 
puter has to look at the joystick and see what 



direction to move the player. Then it has to 
see if that's a valid direction. After all, you're 
not allowed to move through walls. Assum- 
ing you moved in a valid direction, the com- 
puter then has to check to see if you ran over 
a dot, in which case it gives you points and 
erases the dot. It then checks to see whether 
it was a power pill, in which case you get 
stronger for a while. Finally, it checks to see 
whether or not that was the last dot. If it was, 
then it gets ready for the next level. The next 
level, in case you hadn't noticed, is more 
difficult. You move faster. In any level you 
move slower while eating dots. Okay, that's 
what it takes just to move around the maze. 
Now let's bring in the ghosts. 

The ghosts make things considerably more 
complicated, because they are reasonably 
"intelligent." Although at first they just ap- 
pear to be wandering around the maze, even- 
tually some of them start to follow you. Stop 
and think about this for a minute. How would 
you go about programming the ghost to fol- 
low the player? Do you remember the route 
that the player is taking and instruct the ghost 
to follow it? This might work, but it's too easy 
for the player to avoid the ghosts since he will 
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The ghosts make 

things considerably 

more complicated, 

because they are 

reasonably 

^intelligent," 



it • 



just be leading them around. Play the game 
and you'll see that the ghosts try to cut the 
player off. How can you make them that in- 
telligent? Although I'm not sure exactly how 
it's done in the original game, I'll explain one 
way that it could be done. 

Artificial Intelligence 

What we're about to see is a very rudimen- 
tary example of something you've probably 
heard a lot about lately: artificial intelligence. 
Even though you probably associate artificial 
intelligence with robots, it applies to any kind 
of computer program that appears to have a 
mind of its own. In our case, the ghosts ap- 
pear to be intelligent, and the computer pro- 
gram that controls them is thereby an example 
of artificial intelligence. No big deal, really. 
In any case, the question still remains as to 
how we would program Pac-Man to give the 
ghosts this "intelligence." 

Let's start by considering our goal. We 
want a ghost to intercept the player as quick- 
ly as possible, which means it has to take the 
shortest route between where it is now and 
where the player is. So far, so good. Let's 
make it so that the only place a ghost can 
change direction is at an intersection. The 
Pac-Man playfield has a total of 34 intersec- 
tions (corners don't count). 

Now we set up an array that tells us in what 
direction we must turn at each intersection 
to get to any of the other intersections as 
quickly as possible. This makes an array that 
is 34 by 34 (34 choices for each of the 34 
intersections), for a total of 1,156 bytes. Ac- 
tually, since there are at most four possible 
directions at each intersection, we could cram 
four choices into each byte and reduce the 
number of bytes down to around 300, if we 
wanted to conserve memory. In any case, we 
now have everything we need. When a ghost 
that's following the player gets to an intersec- 
tion, we figure what intersection the player 
will get to next and look up the direction to 
take to get to that intersection. We do this at 
each intersection the ghost reaches until it 
succeeds in capturing the player. Ta-da! 

What you've just seen is an example of the 
use of tables (or arrays). This is probably one 
of the easiest and most common ways of con- 
trolling game logic. It does, however, require 



that you have a finite number of possible 
choices and that this number is small enough 
for a table to fit in memory. How might you 
approach a game that does not comply with 
these restrictions? To begin with, there aren't 
too many games that don't. Most games fit 
into one of two categories. Either they con- 
sist of a predictable routine repeated over and 
over again (like Space Invaders, Centipede, 
etc.), or they are limited in their choices (like 
Pac-Man, Donkey Kong, Popeye, etc.). 

Breaking Away From the 
Ordinary 

Some games combine the two categories 
(Missile Command), but very few break away 
from the mold. But what if you wanted to? 
How would you go about programming in- 
telligence into a game in which there was an 
infinite number of choices? About the only 
way is to make these choices predictable so 
that you can use an algorithm to come up with 
the correct choice. For example, you might 
give the algorithm the current player position, 
the current computer position and a few other 
factors, and the algorithm would figure out 
what to do based on this information and then 
go ahead and do it. The only problem here, 
as I stated before, is that whatever you're do- 
ing must be predictable. I know I'm being aw- 
fully vague about all of this, but there are so 
many possibilities that there isn't just one an- 
swer that I can give you. You have to evalu- 
ate your own game idea and try and come up 
with something that will work for you. 

General Lo^ic-Leamin^ Curves 

Let's assume right now that you've got all 
the basic logic worked out and now have a 
playable game in front of you. Are you done 
as tar as the logic is concerned? No. Even 
though the logic for each of the game ele- 
ments is in place, you still have to work out 
the general logic, or how the game comes 
across as a whole. There are two things that 
have to be considered as far as this step is 
concerned. First of all, there is something 
fancy called the "learning curve." The learn- 
ing curve tells how easy or hard it is to learn 
the game and become an expert. Figure 1 
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shows a few possible learning curves. 

Let's take a look at them in order. Curve 
1 is probably the ideal. It represents a game 
in which your score continues to increase the 
more you play. Unfortunately, there aren't too 
many of these games around. 

Curve 2 represents a more difficult game, 
in which it takes a long time to get the hang 
of things, after which your skill improves 
rapidly. This is not a good curve to have, 
since it tends to frustrate the beginner and 
make him not want to play again. 

Curve 3 is the exact opposite. This is a 
game that is easy to learn and presents very 
little challenge once you do. Great for begin- 
ners, but a game has to present a challenge 
for it to be appealing. 

Finally, we have Curve 4. This is a game 
which has a trick to it. Once you learn that 
trick, your score improves dramatically and 
there may or may not be any more challenge. 
The problem with this kind of game is that 
players who haven't discovered the trick get 
frustrated when they see people getting scores 
they thought were impossible. Often, how- 
ever, such a trick works its way into a game 
without the designer knowing it. Asteroids is 
an example of this, as is Pac-Man. The 
designers of these games probably never 
guessed that players would find a safe hid- 
ing place or discover a pattern. But they did. 

These four learning curves cover most, if 
not all, of the games currendy out on the mar- 
ket. The question is, how do you design a 
game to follow Curve 1, which we decided 
was the best? Ideally, what you want to do 
is keep up with the player's ability. If he gets 
a little bit better, then make the game a little 
bit harder. But don't make it too hard too 
quickly or not hard enough soon enough. 
Sound difficult to do? It is, and about the only 
way to even come close is to let a bunch of 
your friends play it and watch how they do. 
If they think it's too easy, make it a little hard- 
er, and vice versa. They'll let you know when 
they think it's great. Why can't you just play 
it yourself? Because you'll always think it's 
too easy, since you know all its secrets. 

Wait a minute. How do you make a game 
harder? Well, there are a lot of ways to do 
it, but here are a few suggestions: 




Curve 2 




FIGURE 1: Learning Curves 

1. Make it faster. 

2. Make the opponents a little more intel- 
ligent. 

3. Put more opponents on the screen. 

4. Make it more complicated. 

In other words, give the computer more of 
an advantage over the player. To see these 
ideas at work, play some of your favorite 
games. See what happens as they progress. 
Look at how the different levels vary from 
each other. Analyze. 



Game Appeal 



The second thing that we have to consider 
in looking at the overall logic of a game is 
its appeal. Of course, if we knew how to de- 
sign a game that was appealing, every game 
to hit the arcades would be a smash hit. Ob- 
viously it isn't that easy. There are, however, 
a few things that every game must have if it 
is to be successful. First of all, the game must 
be something that a person wants to play. It 
must have something that the player wants 
and can't get anywhere else. In other words, 
something that will attract the player to the 
game. Next, it must create the illusion of be- 
ing winnable. Everybody likes to win, and 
they're certainly not going to pump money 
into a game that will make them feel like a 
loser. So, even though the player will not be 
able to beat the game, he must feel as though 
he accomplished something. 

One way of doing this is to reward him ev- 
ery now and then. Pac-Man does this with 
its "intermissions," during which little car- 
toon shows take place. Also, when a player 
does fail in the game, and he always will, he 
must see that failure as being his own fault, 
not the game's, and as being a result of some- 
thing he can correct. Otherwise, there is no 
motivation for him to play the game again. 



While we're on the topic of motivation, it 
is important to maintain motivation for both 
the beginning player and the advanced. Just 
because a player gets good doesn't mean he 
will keep playing. Actually, it's a good rea- 
son for him to stop, if he feels that he's 
mastered the game and there is nothing left 
for him to reach tor. Make sure that there is 
as much for the expert as there is for the be- 
ginner. 

That about covers logic. You're probably 
disappointed that I didn't give you a clear- 
cut method of designing a winning game. If 
I, or anybody else for that matter, knew of 
such a method, I'd be writing games, not ar- 
ticles! The purpose of this section is to get 
you thinking and give you the basics that are 
necessary in designing a game. Take what's 
written here, add a healthy amount of your 
own ideas and start designing. Even though 
the result may not be a million-seller, if you 
can come up with something that even one 
other person likes, you've done well. 

A Change in Direction 
(and Color) 

Our first step in developing the game logic 
for BASIC invaders has to do with changing 
the direction of the invaders. What we want 
to do is have the invaders change direction 
when they reach each side of the screen. In 
other words, they should change direction 
when the right-most invader reaches the right 
edge of the screen, and when the left-most 
invader reaches the left edge. Up until last 
month, the left-most and right-most invaders 
haven't changed during the course of the 
game, so we've been able to change direc- 
tion based on how far we've scrolled the in- 
vaders (see lines 1270 and 1280 of our 
program so far). Now that we can shoot the 
invaders down, however, we have to do some- 
thing a little more elaborate. 

What Happens When the 
Invaders Get Shot? 

Let's pretend we're the program and take 
a look at exactly what must happen now when 
an invader gets shot. First of all, we have to 
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check to see whether or not the invader was 
in the left-most or right-most column and, 
if it was, we then have to check whether or 
not it was the last invader in that column. 
Let's suppose that it was the last invader, 
which would mean that we have to find the 
new left-most or right-most column. Can we 
just assume it's the column adjacent to the 
one that was shot out? No, because that ad- 
jacent column may have been shot out already 
as well. What we have to do is somehow find 
the closest column that still has at least one 
invader in it. Once we do, we make it our 
new left-most or right-most column and ad- 
just our scrolling limits accordingly. And 
that's all there is to it. The only problem is, 
how do we translate this into something the 
computer can understand? 

Arrays and Matrices 

As I menfioned in the previous section, 
game logic often involves a lot of arrays and 
matrices. The most obvious solution to this 
particular problem would be to use an array 
that keeps track of how many invaders are left 
in each column. We would also have a pair 
of variables that kept track of which columns 
were the current left-most and right-most, say 
LEFTCOL and RIGHTCOL. When an in- 
vader was shot, we would subtract 1 from the 
appropriate array element and then check to 
see if that element was now equal to 0. If it 
was, then that would mean that we just shot 
the last invader in that particular column, so 
we would check the column number to see 
if it was equal to LEFTCOL or RIGHTCOL. 
If it was, then we would simply check our 
array to see where the nearest column was 
that didn't have an array value of 0, and set 
LEFTCOL and RIGHTCOL to this new 
value. A simple change to the variable that 
kept track of the scrolling limits would fol- 
low, and we'd be done. 

What's the problem with the above tech- 
nique? Nothing except that it tends to slow 
things down because of the calculations that 
have to be done every time an invader is shot. 
If we were programming in machine lan- 
guage, this time period would be negligible, 
and the same holds true if we were going to 
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compile our BASIC program. Of course, 
we've already decided that there's no way 
we'll be able to do a fast game in pure BA- 
SIC anyway, so does it really matter? Well, 
I started off by programming the direction- 
change logic exactly as I just described, and 
it really wasn't that bad as far as the speed 
was concerned. As I was polishing it up, 
however, a thought suddenly occured to me. 
What I was trying to do was have the invaders 
change direction whenever they hit either side 
of the screen, right? 

Another PMG Trick 

Well, another word for "hit" is "collided," 
and that automatically made me think of 
PMG. I'd only used three of the players so 
far, which left one unused. Why couldn't I 
just make that player a solid vertical strip and 
position it at the side of the screen that the 
invaders were heading towards? That way, all 
I had to do was check for a collision between 
the player and the play field, without worry- 
ing about which invaders were where. And, 
by making the player the same color as the 
background, it wouldn't be visible on the 
screen. (Actually, since I just needed a nar- 
row strip, the missile would work just as well 
as the player, and it ended up being what I 
used.) 

This seemed like a great idea, so I tried it 
and it worked, and this is what we'll be add- 
ing to our prograin in just a minute. The rea- 
son I even bothered to explain the array 
technique is because often you won't have a 
chance to do something sneaky like this, de- 
pending on exactly how your program is set 
up. On the other hand, you should also look 
for alternatives instead of going immediate- 
ly for the obvious. Often you'll find that there 
are several ways of doing something, and the 
obvious way isn't always the best. In any case, 
here are the changes to make to put my solu- 
tion to work: 



127B IF PEEKC53251J=6 THEM 

1333 

1283 CHftHGE=-CHftMGE:POKE 17 

9i,129-PEEKC1791J :POKE 5325 

5,127+77»CHftNGE 



3310 FOR BYTE=39 TO 205:P0K 
E PA+768+BYTE,192;MEKT BYTE 
5440 POKE 704,15:P0KE 705,4 
8:P0KE 706,40:POKE 707,15 
5450 POKE 53248, 128:P0KE 53 
249,0:P0KE 53250, 5:P0KE 532 
55,204 



1270: Instead of checking to see how far 
we've scrolled, we're checking 
M3PF to see whether or not the in- 
vaders collided with Missile 3. 

1280: This line remains the same except 
that we reposition Missile 3 to the 
opposite side of the screen in prepa- 
ration for the next collision. I 
should probably point out at this 
point the reason for using Missile 
3 instead of Missiles 1 or 2, neither 
of which have been used as yet. 
Remember that we need whichever 
missile we use to be the same color 
as the background, in order for it 
to remain invisible. Also remember 
that the missiles take on the same 
color as the corresponding players 
and that Players 1 and 2 already 
make up the alien saucer and there- 
fore have a color different than that 
of the background. As a result, we 
are left with Missile 3 as our only 
choice. 

3310: Here we simply initialize the mis- 
sile so that it is a solid vertical strip, 
extending from just below the alien 
saucer to just above the lowest point 
the invaders can go. 

5440: For now we're going to set the mis- 
sile color to a bright white, just so 
that you can get a better idea of ex- 
actly what's going on. We'll change 
it to the background color later. 

5450: We've changed this line so that the 
missile is initially positioned on the 
right-hand side of the screen. 

Once you've made these changes and got- 

45 



ten the program running, try shooting out the 
left-most or right-most columns and see for 
yourself that everything is working as it 
should. Do you notice any problems? Prob- 
ably not, but there is one hidden problem that 
I should bring up. Because of the timing 
problems with collision detection from BA- 
SIC, it is possible for the computer to detect 
the same collision with Missile 3 twice, 
thereby changing direction twice in a row, 
something which we don't want. In order to 
get around this problem, which showed up 
once or twice while I was writing BASIC in- 
vaders, we're going to make sure that the pro- 
gram waits awhile after changing direction 
before attempting to change it again. Here's 
the code to do this; 



1260 IF PEEK (20X30 AMD PEE 
K(19)=e THEN 1330 
1280 CHANGE=-CHANGE:POKE 17 
91,129-PEEKC179iJ :POKE 19,0 

:POKE 20,0:P0KE 53255,127+7 

7KCHANGE 

5430 POKE 53278, 0:POKE 19,0 

:POKE 20,8 

1260: We now make sure that at least half 
a second has passed since we made 
the last direction change. 

1280: When we make the direction 
change, we now reset the system 
timer as well (Locations 19 and 20.) 

Now we're all set and ready to move on. 
Before we do, let's set the color of Missile 
3 to that of the background. While we're at 
it, let's also change the playfield colors so that 
they're more aesthetically pleasing. The fol- 
lowing changes should do the trick: 

4010 SETCOLDR 0, 4, 14 : 5ETC0L 

OR 1,4,6:5ETC0L0R 2,15,14:5 

ETCOLOR 3,4,10:SETC0L0R 4,7 

,8 

5440 POKE 704,15:P0KE 705,4 

e:POKE 706,40:P0KE 707,112 

Onwards and Downwards 

If you've played around with the game so 
far, then you've probably noticed some 
problems. First of all, things don't quite work 



right when the invaders reach the barriers. 
Second, nothing happens when all the in- 
vaders are shot down. We're going to address 
both these problems, and it will turn out that 
the two solutions are somewhat dependent on 
each other. 

Movini the Invaders Down 

Let's start by moving the invaders down. 
There are two options available to us here. 
We can coarse-scroll the screen, which is 
probably the most obvious solution, or we 
can simply change the way we move the string 
data onto the screen. 

What if we were to coarse-scroll the 
screen? SCROLL allows us to do this quite 
easily, but let's look at what happens when 
we do. Each time we coarse-scroll the screen 
down by one line, we subtract 24 from the 
graphics mode I LMS address. By the time 
the invaders get to the bottom of the screen, 
we will have subtracted at least 240 from this 
address. This means that screen memory will 
begin at least 240 bytes before its original po- 
sition, which in turn means that we'll need 
another 240 or more bytes for screen 
memory. Keeping this figure in mind, let's 
now take a look at our other option and see 
whether or not it's a better alternative. 

Just as we can move the invaders down a 
line by subtracting 24 from the LMS address, 
we can also move them down a line by start- 
ing them on the screen 24 characters past 
their old position. This doesn't take up any 
extra memory and is quite simple to do in our 
case, so we're going to go ahead and do it. 
Just make the following changes to our 
program: 

1000 X=U5RCADR(M0UMEM$},ADR 
CIHU$J+5B,MEM1+LIKE»24,287) 
1280 CHANGE=-CHANGE:POKE 17 
91,129-PEEKC1791) :P0KE 19,0 
:POKE 20,0:POKE 53255,127+7 
7WCHANGE : LINE=L1NE+1 
1320 GOTO 1000 
5280 LINE=0 

Not as much work as you thought it would 
be, was it? Here's the explanation: 

1000: We've changed this so that the in- 
vaders are now moved onto the 



screen starting at MEMH-LINE 24 
instead of just MEMl. LINE is a 
variable that keeps track of how 
many lines the invaders have 
scrolled down. 

1280: Now when we reach the edge of the 
screen, we want to increase LINE 
as well as change direction. 

1320: We're also going to consider our 
move down as the equivalent of a 
move across, so we skip the scroll- 
ing section after we've moved 
down. 

5280: Finally, we want LINE to be ini- 
tially. 

Run the program with these changes, and 
you'll see that the invaders now move down. 
Unfortunately, you'll also see that they leave 
a trail of "dead" invaders behind them. Why? 
Well, when we move down and start draw- 
ing the invaders a line below where we were 
drawing them before, we don't get rid of the 
old first line, and that's what you're seeing 
on the screen. 

So how do we get rid of it? We could add 
a line that moves a string of spaces into that 
old line, thereby erasing it. There's nothing 
wrong with this, except that there's another 
solution that I tend to favor. What if we were 
to shift the data in INV$ so that the lines al- 
ternated between blank and invaders instead 
of invaders and blank? This means that the 
first line in INV$ would be blank and would 
automatically erase the old invaders. Of 
course, it would also mean that the invaders 
would begin one line lower on the screen, but 
we can easily make up for that. 

Why do I favor this solution over the other? 
I guess it's because it means not having to 
add another line to the program; it's just a 
matter of making slight changes to existing 
lines. This is, of course, just my own per- 
sonal preference, so please don't feel that the 
other solution is wrong. Anyway, here are the 
necessary changes for my solution: 

330 INUSCR+C+27,R+C+28J="i^ 
" : INV$ (R+C+315, R + C+316) ="^ 
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":ef=2 

1030 INUStR+C+27,R+C+28J="V 

r':INV$tR+C+315,R+C+3X6J="¥ 

V" 

1328 GOTO 1088 

5288 LINE=-1 

5398 FOR LP=8 TO 4 STEP 2:R 

EflD DAT$:INU$CLP»48+27,LPK4 

8+42) =DftT$ : INU$ CLP»48 + 363, L 

P*48+378)=DAT$ 

5488 READ DATS : INV$ CLP»48+7 

5,LP*48+9e)=DATS:INy$CLP»48 

+315,LP*48+338)=DAT$:HEXT L 

P 

330-1030: We've just added 24 to all the 
numbers here to shift everything 
down a line. 



5280: By initializing LINE to -1 instead 
of 0, we make sure that the invaders 
start on the same row on the screen. 
You should be aware that we will 
now be moving INV$ into screen 
memory starting at MEMl-24 in- 
stead of MEMl. You'll remember 
that the screen memory area before 
MEMl is used for the score, so 
won't this change affect the score? 
No, because when we reserved 
screen memory for the score, we 
reserved more than was necessary, 
which means that the score data 
ends before MEMl-24 (I cheated a 
little in doing this, because I knew 
we'd be running into this problem!) 

5390-5400: Again, we've just added 24 to 
the numbers here. 

It's Still a Mess 

Okay, so now we have the invaders mov- 
ing down without the mess. We still have 
problems however. For example, try shoot- 
ing the invaders after they've moved down a 
line or two, and you'll notice that the explo- 
sions are in the wrong row. The reason for 
this is as simple as the solution; we're not tak- 
ing into account the downward shift when we 
calculate the row that the hit invader is in. 
So here's our solution. 

320 R=48*INTf CPEEKfl696)-38 
-8*L1NE)/16) :C=2»INT(tPEEK{ 
1692)-SCR0LL-C0ARSE»8-47)/l 
6J :R=R»fR>=0) 



All we've done here is use LINE to make 
the necessary adjustment to R. 

Erasing the Barriers 

Our next problem occurs when the invaders 
reach the barriers. At the moment they get 
lost for a while and then eventually turn the 
barriers into a mess (let the program run for 
a while and you'll see what I mean). What 
we'd like to happen is for the barriers to be 
gradually erased by the invaders as the in- 
vaders move down into them. 

How do we go about doing this? Well, the 
first thing we need to do is have some way 
of knowing when the invaders have reached 
the barriers. To be more specific, we need 
to know when the bottom row of invaders has 
reached the tops of the barriers. And, since 
the bottom row can change as the player 
shoots down the invaders, we're going to have 
to have some way of keeping track of the bot- 
tom row. 

So let's begin with a system to keep track 
of which row is at the bottom. We'll use the 
array method that I described in the "Change 
in Direction" section. Our array will keep 
track of how many invaders are left in each 
row, and we'll also have a variable that keeps 
track of the current bottom row. When the 
last invader is shot in the bottom row, we'll 
search the array to find the nearest row that 
still has invaders in it, and it will become our 
new bottom row. As an added bonus, if we 
can't find a new bottom row, we'll know that 
all the invaders have been destroyed and that 
the current level is complete. Keeping all this 
in mind, let's take a look at the program 
changes that we need: 

1048 TMP=R/48:R0NCTMP}=R0WC 
TMP)-l:IF ROWCTMPJOe OR TM 
POBOTROM then 1080 
1050 FOR LP=B0TR0M TO 5TE 
P -l:IF R0WCLP)=8 THEM HEKT 

LP:GOTO 2000 
1060 POP :B0TR0M=LP 
2000 STOP 

3030 DIH MLANG$C90) ,INU$C57 
8},DAT$C16),R0MC5) 
5270 SCROLL=0:CHANGE=l:SB=e 
: EF=0 : B0TR0M=5 : C0ARSE=e : SAU 
CER = e 

5420 FOR R=0 TO 5:R0M(R1=8: 
NEKT R 



In case you're having trouble relating this 
to the initial description, here's the line-by- 
line explanation: 

1040: Remember that R is the row of the 
invader that was hit times 48. We 
divide it by 48 to get back the row 
number (from to 5) and then sub- 
tract 1 from the array element for 
that row, If the array element isn't 
equal to 0, which means that there 
are still invaders left in the row, or 
if it wasn't the bottom row, then we 
skip over the next two lines. 

1050: There are no more invaders in the 
bottom row, so we have to find the 
new bottom row. What we do is go 
backwards through the array and 
check each element to see if it's 
equal to 0. If it's not, then we skip 
to the next line. If it is, then we keep 
checking. If we get all the way 
through the array without finding a 
nonzero element, then that means 
there are no more invaders left on 
the screen, so we skip ahead to line 
2000. 
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1060: To get to this line, we must have 
found a row with invaders still in 
it and left the loop. Whenever you 
leave a loop in the middle, like we 
did here, you should always use the 
POP command so that the com- 
puter doesn't think it's still in the 
middle of a loop. We also set 
BOTROW to its new value. 

2000: We get to this line when all the in- 
vaders have been shot. Eventually 
it will be the beginning of a routine 
to start a new level, but for now 
we'll just stop the program. 

3030: Here we've just added our array to 
be DIMensioned. 

5270: BOTROW is initialized to 5. 

5420: We also want to initialize ROW() so 
that we know each row begins with 
eight invaders in it. 

Erasing the Barriers Properly 

Before we go ahead and change the pro- 
gram so that the barriers will erase proper- 
ly, let's make a few more adjustments to what 
we have so far. When the bottom row is de- 
stroyed, there's no point in drawing it on the 
screen anymore. As a matter of fact, draw- 
ing it may even cause some problems as the 
invaders move into the barriers, since the in- 
vader data may eventually get into the barri- 
er screen memory. Luckily, all it takes is a 
simple change to line 1000 to adjust for this: 



lOOe X=USRCADRCMDUMEM$),ADR 
CINV$J +5B , MEM1+LINE»24 , 287- 
48»C5-B0TR0WJJ 

Now, each time BOTROW changes, less of 
INV$ will be put on the screen. Unfortunately 
(there are a lot of unfortunatelies in the world 
of game design), we've just created another 
problem in that the last invader explosion in 
the bottom row is not erased from the screen. 
The following line takes care of this for us: 

<4S 



1078 X=U5RCADR(M0UMEM$),ADR 
('•<><^¥¥¥¥¥¥¥»<^»*¥¥¥¥¥¥¥¥¥¥¥" 
) ,MEMl+LINEi*24 + TMP»48 + 24,23 
] 

Now, finally, we're ready to take care of 
the barriers. 



Taking Care of the Barriers 
Once and for All 

If you remember from the column on dis- 
play lists, we set up the display list so that 
the barrier area was divided into three LMS 
sections. That way, we could remove one sec- 
tion without messing up the rest. Well, that's 
all we're going to do now. When the invaders 
reach the tops of the barriers, we're simply 
going to replace one section of the barriers 
with a scrolling-graphics mode-1 line. Since 
a scrolling-graphics mode-1 line replaces 
eight graphics mode-7.5 lines, we'll also have 
to move the rest of the display list up a little. 
Figure 2 shows what I mean. 
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FIGURE 2: Removing the Barriers 

And here's the code to do it: 

1290 IF CHANGE=1 THEN 1480 

1328 GOTO 1488 

1488 POKE 53278,0 

1430 IF LINE+B0TR0W*2<>15+B 

ARLIN OR BARLIM=3 THEN lOOO 

1435 POKE 559,0:P0KE 20,0 

1440 IF PEEKC2O)=0 THEN 144 



1450 POKE DLIST+21+BARLIM,2 

2 ! K = USR CADR CMOVMEMS J , DLIST + 

31+BaRLIH,ADRCDL$] , 29-10«Bft 

RLIM) 

1460 X=U5R CADR CMOUMEM^}, ADR 



CDL$) ,DLI5T+22+BflRLlM, 29-10 
»BARLIM) 

1470 POKE 559,62:BARLIM=BAR 
LIM+l:GOTO 1000 
3030 DIM MLANG$C90) ,INU$C57 
8) ,DAT$C16],ROMt5],l>L$C30] 
5158 BARLIN=e 

1290-1320: After we do everything that's 
necessary for a direction change, 
we now want to skip over to line 
1400, for the routine that will erase 
the barriers if it's necessary. 

1400: We're just clearing the collision 
registers again here, for no reason 
in particular other than it seems like 
a good thing to do. 

1430: Here we simply check to see 
whether or not the bottom row of 
invaders is at the tops of the barri- 
ers. BARLIM, which I forgot to 
mention earlier, is used to keep 
track of how many sections of the 
barriers have been removed so far, 
which we use to determine where 
the tops of the barriers are. If 
BARLIM is equal to 3, then the bar- 
riers have been completely removed 
from the screen, and we don't have 
to worry about them anymore. 

1435 We want the screen to be off while 
we change the display list, so we 
turn it off here and set the system 
clock to 0. 

1440: Now we keep checking the system 
clock until one jiffy (one-sixtieth of 
a second) has passed. The reason 
we have to do this is because it takes 
up to one jiffy for the screen to turn 
completely off. If we don't wait, 
then the screen may appear to jump 
while we're changing the display 
list. Try leaving this line out and 
you'll see what I mean. 

1450-1460: Now we actually change the 
display list. First we put the CHR 
6 HSC into place, and then we 
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"scrunch" the display list (as I 
described above) by moving the end 
of the display list into a temporary 
string and then moving it back into 
place right after the CHR 6 HSC. 
You're probably wondering why we 
can't just move the end of the dis- 
play list directly into place, without 
having to use the string. We could, 
except for the fact that when MOV- 
MEM is used to move things back- 
wards in memory, as it is here, the 
area it's moving in cannot overlap 
with the area it's moving to. In this 
case the two areas do overlap, so we 
have to use DL$ as a kind of mid- 
dleman. 



1420: Now we go off to the end-of-game 
routine. 

2020: For now, our end-of-game routine 
simply stops the program. Later on 
we'll expand it into something a lit- 
tle more appropriate. 

We're just about set now except for two 
more details. If the invaders reach the bot- 
tom of the screen after they've hit the right- 
hand edge, then the alien saucer will still fly 
merrily across the top of the screen, regard- 
less of the fact that the game is over (change 
line 2020 to 2020 GOTO 2020 to see what 
I mean). One simple change (for this column 
at least) will take care of this problem: 



1290 IF CHANGErl OR LINE+BO 
TR0MM2=20 THEN 1408 

Lastly, we run into the problem that the 
player can shoot the invader explosions as the 
invaders near the bottom of the screen. This 
didn't happen before because the explosion 
was cleared before a new missile could reach 
it. The simplest solution to this problem is 
not to let the player shoot until the explosion 
is cleared: 

1120 IF 5TRIGC0)=1 OR PEEKt 
1700)00 OR PEEKC1720)<>0 
R EF>1 THEN 1250 
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1470: Now we turn the screen back on, 
update BARLIM and get back to the 
main part of the program. 

3030: We've added DL$ to this line. 

5150: And here we initialize BARLIM. 

Ending the Game - 
A Be^innin^ 

Now how do things look? Pretty good un- 
til the invaders reach the bottom of the screen. 
At this point, the game should end, but right 
now it doesn't. So let's make it: 

1400 POKE 53278, 0:IF LINE+B 

OTROM»2<>20 THEN 1430 

1410 »=USRCADRCMOUMEM$],ADR 

CINy$)+5B,MEMl+LINE»24,287- 

48MC5-B0TR0M}} 

1420 GOTO 2020 

2020 STOP 



1400: 



We check to see if the bottom row 
of invaders has reached the bottom 
of the screen (the level of the play- 
er's base). If it hasn't, then we skip 
ahead to line 1430. 



1410: 



The invaders have reached the bot- 
tom of the screen, so we want to 
make sure they're drawn in their fi- 
nal position before we end the 
game. This line takes care of it. 
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80 COL. SCREEN.i-NEW PRICES! 



Winner ANTIC 
awards '88 



Turbobase. 

"IBM power without the price. . . I really can't think of any feature associated with running 
a business that has been left out-except for the huge prices charged for comparable 
software on MS-DOS computers." -ANTIC, Dec. '87 

"...the most time consuming review I have ever done, dueto the number of features.. . 
Turbobase finally gives what 8-bit owners have been clamoring for for years; true, power- 
ful business software., .set up a fully capable businesssystemfor less than $1,000... 
customer support is superb. . . Practicality-excellent. Documentation-excellent." 

-COMPUTER SHOPPER. Aug. '87 
"... one of the most powerful and versatile database programs available ..." 
-COMPUTER SHOPPER, Aug. '88 



COMPARE TO IBM CLONES: 



• Capability 

• Capacity 

• Remote Terminals 

' Exhaustive Support 

• No Disk Switching 

• T/ny Foolprinl 

' Not Copy Protected 



' Complete Documentation 
' $20-S50 Customizations 
' One package all modules 
' All Hardware Upgrades 
' Brand Name Hardware 
' True Integration 
' Free Applicalion Set-up 



' Speed among thousands of records 

• Ease ol learning (per feature) 

• Number of English error messages 
> Adaptability to Exisling Applicalion 

. Hardware DOS easier than Clone MS DOS'" 

' Faster Back-up to inexpensive lloppy 

' Complete InvoicePaymenls Error Checking 



Turbobase lakes 520,000 wdeo store s.ile fiutrt IBM S V, PIriinfield. NJ 
TurbotLisc rakes S^O.OOO IBM s^le ror wairrbcd siorr . A J. Phoenix. AZ 

Ti/rt)nI;aMTer)l,iirs s:j/,000 an CoiicJiUudifiLj .ipplir.ilioil .AB.. Allon, F^H 
U(i[il vuo h.ivc Iiirbubaseyou lIoiVi u.wo .i daMh. (■■'■' Acojn U'lff, Group 



Micromiser is looking for resellers. If you have 2 DO drives, or an MIO '" , or hard disk. You qual- 
ify for free training, dealer prices, marketing direct mail help, and myriad customer references 
who express extreme satisfaction with Turbobase. Compare the Turbobase '"/MIO'" configu- 
ration at $830 (all hardware & software except printer) with the IBM AT'" : Immediate RAM 
access to 6,000 invoices, or 1 5.000 inventory items, or 50,000 G/L records, or 20,000 payroll 
records, or any combination of above! With a hard drive (add only $1 00) the figures go up! 
4,000 addresses too! An unbeatable selling point: replace any component for the cost of a 
typical IBM'" Apple'" repair bill! The small business market is yours! Just ask. "Is IBM '" 
compatibiliiy worth $20,000 to you?" 



TURBOBASB '" — the all in one database/business system: 3 databases -i word processor 
includes file manager/spread sheet/relational features/accounting/report generator. G'L, 
P S.AR, AP. open invoicing. statements, inventory, payroll, mailing, utilities, all truly integrated 
in one program'manual so simplified that we can present complete detailed instructions in 
only 700 -t- pages of superb documentation (third re-write) includes separate Quick Course 
and Cookbook i 8 disk sides. Runs on any 48K 8-bil Atari, only 1 drive req. Call today! 



Tufbobdse Sf59-Tu(l:)0 Jr S99 
For XEP— 80 col. screen; 

TufbobJise80SI79-Jr80SM9 
w/80 coi word proci.'ssor add 524 

80COL WORD PROCESSOR $49 



STownersf AskciDouiUlirabtHseSl [B/W mon- 
itor only) all Turbobase features + much more 
^- Ultimate SIMPLICITY and speed 

(407) 857-6014 



MICROMISER SOFTWARE, 1635-AHOLDENAVE., ORLANDO, FL 32809 
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by Frank Cohen 



The First Atari Convention of Canada turned out 
several tliousand Atari enthusiasts and some sur- 
prise products for both the 8-bit and ST. 



Amidst cold and rainy weather, several 
thousand Atari enthusiasts converged on the 
Toronto Airport Hilton last November for the 
First Canadian Atari Convention. The show 
turned out to be very successful; outside it 
rained and hailed, while inside, people spent 
their money buying new and used software 
for the ST and 8-bit Atari home computers. 
Everyone seemed to leave with a smile. 

Atarifest History 

Created by Sandy Austin, Atari Corpora- 
tion's former Users' Group Coordinator, the 
tradition of the Atari Festival was to take 
Atari's grass roots marketing effort directly 
to the public. Early on, Atari management 
decided not to promote the ST computer with 



substantial radio, print or television ads; in- 
stead, they opted for a city-by-city tour of the 
major computer markets in the United States. 
Using the resources of the local Atari users' 
groups. Atari had a motivated and enthusias- 
tic audience for their new line of home com- 
puters. 

The first show, held in Glendale, drew 
more than 4,500 attendees. Many found the 
Glendale Atarifest to be their first chance to 
look at the ST computer and some of the soft- 
ware offered by the many participating 
manufacturers. Austin was told to schedule 
more shows. A trailer truck was leased to 
transport ST computers, booths and other 
equipment from city to city. Atarifests were 
more or less successful in Worcester, Salt 
Lake City, Detroit, Pittsburgh, Washington, 



Seattle and several other cities. 

In fact, the Atarifest formula worked too 
well. Soon, Austin found more than one show 
had to be scheduled each month. At best, an 
Atarifest took six months to plan correctly. 
Tensions inside Atari mounted, and eventu- 
ally Austin tendered her resignation. 

The turning point occurred at the Dallas 
Atarifest. Held at the Infomart, a mall com- 
pletely devoted to computers and technolo- 
gy, Austin arranged for three users' groups 
to share the responsibility of arranging the 
show. The differences between the groups 
cau.sed an all-out war. The Dallas Atari Com- 
puter Enthusiasts (DAL ACE), and the North 
Texas Users' Group were particularly caus- 
tic towards each other. During the show, one 
users" group member began shouting, 
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"DALACE is a pirate club." 

Atari was not blameless. Neil Harris, 
Atari's Director of Corporate Communica- 
tions, had gone to the previous Atarifests giv- 
ing well-attended speeches on Atari's plans 
for the future of the ST and 8-bit computers. 
But this time, at the last moment, Harris 
backed out of the show because his wife was 
Hearing the end of her pregnancy. The local 
users' groups, unaware of the situation, were 
outraged, venting their frustration on the only 
Atari employee at the show, Sandy Austin. 
At a dinner for the exhibitors, Austin was at- 
tacked for Atari's wishy-washy marketing ef- 
forts and vaporware products. 

Under pressure from the users' groups, 
Harris made a hurried trip to Dallas to give 
one speech, then departed for Sunnyvale. The 
show left Austin tired and burned-out. Later, 
Austin confided to ANALOG that she was 
looking for another job. 

Several Atarifests have been scheduled for 
'89. However, without the support of a cen- 
tral Atari representative, like Austin, coor- 
dinating and supporting the project, local 
users' groups are finding it very difficult to 
hold a show. The costs of advertising, print- 
ing and securing the show location usually 
amount to $10,000. Without Atari's support, 
users' groups do not have the resources to pull 
it off. 



Atari Canada 



The First Canadian Atari Computer Con- 
vention was supported by Atari Canada, who 
displayed all of Atari's products in a trade 
show-sized booth. Since Atari Canada's 
offices are located in the Toronto area, most 
of Atari's sales and support employees were 
at the show promoting products and answer- 
ing questions. 

Atari Canada is a subsidiary of Atari Cor- 
poration. "Atari Canada has spent the past 
three years building a good reputation among 
Canadians," said Martin Herzog, Product 
Manager for Atari Canada. Headed by Ian 
Kennedy, Atari Canada is the antithesis of 
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Atari Corp. USA. Atari Canada has created 
a series of advertising campaigns that make 
the ST a well-known and well-respected 
Canadian personal computer. 

Atari Canada has built a good relationship 
with the approximately 150 Canadian ST 
dealers. In August, 1987, Atari Canada host- 
ed all Canadian dealers at a one-day dealer 
trade show in Toronto to roll-out the new 
Mega ST. Between hour-long seminars on 
sales strategies, dealers were invited into a 
special hall where the latest hardware and 
software ST products were on display. Third- 
party manufacturers were invited to the dealer 
show to make contact with the local sales- 
men. Atari Canada supplied meals, drinks, 
and even gave each dealer five shares of Atari 
public stock as a sign of the partnership Atari 
Canada intended to build with the Canadian 
dealers. Atari Canada's message was ex- 
pressed best by Kennedy, "We want [dealers] 
to be partners in our success." 



Toronto Show 



Arriving in Toronto International Airport, 
a visitor might think this city is in the Unit- 
ed States. It is not! Canada is a foreign coun- 
try, complete with different driving rules, 
customs, vocabulary and money. This is par- 
ticularly true of Canadians from Ontario, the 
province where Toronto is located. 

Toronto has been called the New York of 
Canada. The CN Tower is just as touristy as 
the Empire State Building; both structures 
give you a breathtaking view of a huge 
metropolis. 

The Toronto show turned out to be much 
larger than most Atarifests. Several local deal- 
ers were on hand, with what appeared to be 
their entire inventory of hardware and soft- 
ware products. The balance of exhibitors was 
equally matched between business software 
vendors and MIDI (Musical Instrument Dig- 
ital Interface) music-related developers. A 
number of the region's Atari users' clubs dis- 
played newsletters and public-domain soft- 
ware libraries. 



The Toronto show 
turned out to be 
much larger than 
most Atarifests. 



Atari Canada displayed tiie Atari PCI, 
Atari's ill-fortuned IBM PC clone. Three 
hundred PCls were shipped to Canada in 
1988. An Atari Canada employee told ANA- 
LOG that because of the high price and lack 
of salability, they were trying to unload them 
at any cost. 

Of news to ST users, the Atari PCI comes 
with the new PCF-554 5.25-inch double-sided 
floppy disk drive which is compatible with 
ST and Mega computers. Atari Canada has 
been marketing the PCF-554 since last sum- 
mer to Canadian ST users, while Atari USA 
has still not released the drive to the U.S. 
market. 

Rumors persisted that Atari Canada was 
entering the software market with several 
bundled software/hardware combinations. 
High on the list of possibilities was a 1040 
ST computer bundled with WordPerfect, Re- 
gent Base 2 and LDW Power Atari Canada 
is looking for ways to make the ST attractive 
to businessmen working with IBM PCS at 
work. 

Atari Canada hosted a benefit MIDI Maze 
competition. Twelve 1040 STs were connect- 
ed to allow players to compete against one 
another for software prizes. 

A new company on the ST scene, Code- 
Head Software, brought Charles Johnson and 
John Eidsvoog to the show demonstrating 
their new utility products for the ST. G-\-Plus 
($34.95 List) is a replacement for Atari's ter- 
rible GDOS system. GDOS gives an Atari ST 
computer the ability to display and print 
graphics and fonts with a number of popular 
printers. Atari's release of GDOS is filled 
with major bugs that, among other things, 
noticeably slow down the GEM operating 
system, crash many ST programs and eat up 
memory like a hungry child. Johnson and 
Eidsvoog wrote their own software to replace 
GDOS; the result: G+Plus. 

MultiDesk ($39.95 List) is CodeHead's se- 
cond product offering. The stock GEM sys- 
tem allows only six desk accessories. (Desk 
accessories are smaller programs that may be 



used while a larger GEM program is run- 
ning.) MultiDesk removes the limit, allow- 
ing up to 32 desk accessories to be used. 

ANALOG expected a database showdown 
at the Toronto show. The makers of dBMAN, 
Supcrbase and Regent Base have made sig- 
nificant strides into the Canadian ST database 
market. Only Regent made it to the show. On 
display. Regent Base 2 ($150 List) is a very 
powerful relational database that uses the 
Structured Query Language— the emerging 
standard microcomputer database language. 
GFA BASIC users have a new accessory 
product that enhances GFA EASICs instruc- 
tion set. The SQL Database Add-On for GFA 
BASIC (Versions 2 & 3) is a command SQL 
interpreter that uses GFA BASIC variables to 
pass SQL commands and retrieved data. The 
SQL Add-On ($59.95 List) assumes very lit- 
tle knowledge of databases, but is a power- 
ful database manager. 

Michtron was on hand, showing what it 
had left to sell. It seems the demand for GEi 
BASIC 3.0 has outpaced the supply of manu- 
als. Michtron has also recently announced it 
will be marketing yet another BASIC, Hi-Soft 
BASIC, developed by a British company. 

All in all, the First Atari Convention of 
Canada turned out to be successful for its or- 
ganizers, the dedicated Atari enthusiasts that 
attended, and the manufacturers showing 
their new products. It seems a safe bet that 
there will be a second Atari Convention of 
Canada. 



Frank Cohen has been developing Atari 
programs since his first commercial product, 
Clowns & Balloons. He later developed Re- 
gent Base 2, an SQL 4GL database, and is 
currently involved with several other. ST- 
related products and small business software 
packages. If you have questions or comments 
he may be contacted directly on CompuServe 
(76004,1573) and Genie (FCOHEN), or 
directly at P.O. Box 14628, Long Beach, CA 
90803-1208 C\ 



Rumors persisted 
that Atari Canada 
was entering the 
software market 
with several 
bundled soft- 
ware/hardware 
combinations. 
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SPECIAL CHARTER SUBSCRIPTION RATES 



6 ISSUES 
ONLY ^3.95 

SAVE 40% OFF / 
THE COVER PRICEC 

INTRODUCING 








D SIGN ME UP FOR 6 ISSUES OF LAPTOP MAGAZINE FOR ONLY $13.95! 

D PAYMENT ENCLOSED D BILL ME CHARGE MY D VISA D MC 

No EXP SIGNATURE 

NAME 

ADDRESS 

CITY 



STATE . 



ZIP_ 



Money back on unused subscriptions if not completely satisfied. Foreign add $7. Make checks 

payable to LFP, INC., Your first issue will arrive in 6 to 8 weeks. Watch for it. 
CJQWV Offer expires June 28, 1989 



The world of ATARI-ST continues to grow by leaps and bounds, and ST-LOG is there 
every step of the way! We stand apart from the competition by offering more color, 
comprehensive reviews and in-depth features. SUBSCRIBE NOW! 



$28 



d12 

D 12 Issues ^Arith Disk 



'^\ 



$79 



MAKI CHICK MYABLI TO L.r.P., INC., P.O. Bm 16938, H. Hallywavd, CA 916IS. Offer expires June 2B. 1989 



n PAYMENT ENCLOSED D BILL ME 

CHARGE MY: D VISA D MASTERCARD 



CARD # 



EXP SIGNATURE 
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WE'RE BACK! 



SAN JOSE COMPUTER, 'THE ATARI STORE', is the largest seller of ATARI 
products and now we're back in the 8-Bit market to serve you better. 



^S?a?M?iMM'fS 



1200XL ..;S. $49.95 1 1025 PRINTER $89.95 



Reconditioned, 90 day warranty 









Reconditioned, 90 day warranty 
^ ! J"^i:V'^ """""" 



COMPUTERS 

800 $69.95 

400 $29.95 

600XL $49.95 

Rccxjndltioncd, 90 day warranty 



MISCELLANEOUS 

850 INTERFACE $89.95 

MONO MONITOR $39.95 

TRACKBALL $9.95 

JOYSTICK 20' EXT $ .99 

Reconditioned, 90 day warranty 



PRINTERS 

825 $79.95 

1029 $129.95 

820 $39.95 

Reconditioned , 90 day warranty 



CARTRIDGES FOR 800, XL, XE 



TURMOIL 

PAC-MAN (no box) 

DONKEY KONG (no box) 

GORF (400.800) 

DEMON ATTACK (400,800) 

DELUXE INVADERS 

JOURNEY TO THE PLANETS- 
MATH ENCOUNTER 

SKYWRITER 

FOOTBALL 

DEFENDER 

KOnOTRON 



. $4.95 TENNIS $19.98 

. $4.95 FINAL LEGACY $19.98 

$4.95 MARIO BROS $19.98 

. $4.95 DONKEY KONG JR $19.98 

. $4.95 JUNGLE HUNT $19.98 

. $4.95 MOON PATROL $19.98 

. $4.95 BATTLEZONE $19.98 

$7.98 FOOD FIGHT $19.98 

$14.95 HARDBALL $19.98 

$14.95 FIGHT NIGHT $19.98 

$14.95 ONE ON ONE BASKETBALL $19.98 

. $19.98 DESERT FALCON $19.98 



NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 

BALLBLAZER $19.90 

BLUE MAX $19.98 

STAR RAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARCHON $19.98 

GATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER $24.98 

BARNYARD BLASTER (XE gun) $24.98 

ATARI LAB LIGHT MODULE $29.98 

ATARI I^B STARTER KIT $39 98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC $4.98 

ZORRO $4.98 

BANDITS (48K 400.800) $4.98 

PROTECTOR II $4.98 

CIjMM .JUMPER $4 98 



CROSSCHECK $4.98 

MOLECULE MAN $4.98 

CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASITDROID $4.98 



SPIDERMAN $4.98 

flULK $4.98 

VISICALC $24.98 

BOOKKEEPER W/ numeric keypad... $29.98 
GET RICH $39 98 




8-BIT SERIAL I/O CABLE .... $5.95 



SAN JOSE COMPUTER 



THE 



ATARI 



STORE 



Sunrise Plaza 640 Blossom Hill Rd. SanJose, CA 95123 
(408)224-8575 • BBS (408) 224-0952 



5.25" DISKS 

20 CENTS EA.* 

QTY. PRICE 

10 $4.00 

100 .... $29.95 

♦1000 .... $200 

.MAJORHY ARE UNNOTCHED 
CONTAINING 01J3 SOFTWARK 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNA-nONAL SHIPPING EXFKA THATS IT 

WAHHANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDErfTS ADD 7% SALES TAX 

PREPAYMENT: USE VISA. MASTERCARD, MONEY ORDER, CASHIER'S CHECK OR PERSONAL CHECK. 

PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: ChSi. CASHIER'S CHECK OR M O ONLY 

Prices subject tn change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders 

Ad produced on an ATARI ST. 
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M/L EDITOR 



For use in machine-language entry. 



hy Clayton Walnum 



M/L 



Editor provides an easy 
method to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch; It's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetifions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automafi- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code pre- 
ceding the line numbers here is not 
a part of the BASIC program. For 
more information, see the "BASIC 
Editor n" elsewhere in this issue. 



LISTING 1: BASIC LISTING 



«Z IB DIM BFtl61,H$(4],A$Cl),BStll,F$(15] 

,F1S(15) 
LF 11 DIM H0D$C41 
DM 28 LIHE=100B:REIRN=155!BaCK5P=126!CHK5 

UM=0!EDIT=B 
GO 3B G05UB 45B!P05ITIOH IB, 6!? "gtart or 

Hontinue? ";IGDSUB 5BB!? CHR$(A) 
Ze 40 P05IT10M IB, 8;? "FILEMflME") ! INPUT F 

$:POKE 752,1!? " " 
rZ 58 IF LEH(F$)<3 THEN PB5ITI0N 28,18:? 

" ";G0T0 40 
Mr 68 IF FS(1,2)<>"D!" THEN F1$="D ! " : Fl$ C 

3)=FS;G0T0 88 
KL 70 F1S=F« 

TK 88 IF CHRSC6)="5" THEN 128 
ri> 58 TROP 43B10PEN 1)2 , 4 , 9, FIS : TRAP 118 
HO 100 FOR X = l TO IBiCET «t2,0!HEKT X ! LIKE 

=LINEtlB:GOTO 108 
►m 110 CLOSE t)2!0PEN 112 , 9 , 8, FIS ; GOTO 179 
»t 120 TRAP 160!0PEN 112 , 4, 0, Fl$ ! G05UB 448 

iPOSITION 18,10:? "FILE OLREODY EXISTS 

! !"!POKE 752,0 
ZU 138 POSITION 18,12:? "EROSE IT? ";:GOS 

IIB 580!P0KE 752,1!? CHRS(«) 
UH 148 IF CHR$(0)="N" OR CHRS(fl)="n" THEN 

CLOSE n2:G0T0 38 
OG 150 IF CHR$CO)<)"y" AND CHRStmO"!!" T 

HEN 130 
»H 160 CLOSE n2:0PEN tl2,8,8,Fl$ 
IE 178 GOSUB 458:P0SITI0N 10, li? " l.'liljBirB 

Hm: ";LINE:CHKSUM=0 
GH 180 L1=3:F0R X=1 TO 16:P05ITI0N 13»CX< 

18) tl2»CX>9) ,Xt2:P0KE 752,0:? "BVTE D" 

iX;": "; :G05UB 318 

KM 190 IF EDIT AND L=8 

TO 210 
FY 288 BYTE:UAL(NS) 
OZ 281 M0DS=NS 

BU 210 POSITION 22,X+2:? BYTE;" " 
yZ 228 BFCK)=BYTE;CHKSUM=CHKSUM+BYTE»X:IF 

CHKSUM>9999 THEN CHKSUM=CHKSUM-18000 
MS 230 NEXT X!CHKSUH=CHK5UHtLINE:IF CHKSU 

M>9399 THEN CHK5UM=CH)C 5UM-10000 
IG 240 POSITION 12,Xt2:P0KE 752,8:? "CHEC 

KSUM: "; :L1=4 ! GOSUB 310 
EH 250 IF EDIT AND L=0 THEN 278 
OH 268 C=UAL(N$) 
SY 278 POSITION 22,Xt2l? C ; " " 

il 288 if c=chksum then 308 
di 290 gosub 440 : edit=1 : chk5um=0 : goto 180 
lh 300 for h = l to 16;put 112, bf ix> : next xi 
lihe=line+19:edit=o:coto 170 

TV 310 L:0 

KZ 320 GOSUB 508IIF CA=A5CC"Q") OR A=ASC( 

"q")) AND X=l AND NOT EDIT THEN 420 
PO 330 IF AORETRN AND AOBACKSP AND [A<4 

8 OR A>57) THEN 320 
ex 331 IF A=RETRN AND HS="" THEN NS=MOD« 
TO 335 IF A=HETRN AMD 1=8 AND K>1 THEN 35 



THEN BYTE=BF{X) : GO 



JR 340 IF ((0=RETRN AND NOT EDIT) OR A=B 

ACK5P) AND L=0 THEN 320 
DH 350 IF A = RETRN THEN POKE 752, li? R 

ETURN 
GG 360 IF AOBACKSP THEN 400 
Sfl 370 IF L>1 THEN MS=NS (1, L-1) : GOTO 390 
B5 380 NS="" 

RE 390 ? CHRStBACKSP) ; !L=L-l!G0T0 320 
BB 400 L=Ltl:IF L>L1 THEN A=RETRN:G0T0 35 

8 
WX 410 N$(L)=CHRSCA) :? CHR$ (A) ; : GOTO 320 
KN 420 GRAPHICS OIEND 
YT 430 GOSUB 440rP05ITION 10,10:? "NO 5UC 

H FILE!":FOR K=l TO 1000:NEXT X:CLOSE 

I)2:C0T0 30 
FD 440 POKE 710,48:S0UHD 0, 100 , 12 , 8 : FOR X 

=1 TO 50;NEXT X:S0UND , , , : RETURN 
MY 450 GRAPHICS 23;P0KE 16,112!P0KE 53774 

,H2:P0KE 559,0:P0KE 710,4 
XR 460 DL = PEEK(560)+Z56l<PEEK(561)t4;P0KE 

DL-1,70:P0KE DLtZ,6 
HH 470 FOR X=3 TO 39 STEP 2;P0KE DL*X,2:N 

EXT X:F0R X=4 TO 40 STEP 2:P0KE OL*X, 

ZM 480 POKE DL+41,65:P0KE DL+42 , PEEK (560) 

:POKE DL+43,PEEK t56i) :POKE 87,0 
AC 490 POSITION 2,81? 
POKE 5S9,34:RETURK 
MZ 500 OPEN ni,4,8,"K: 
= ! RETURN 



■analog Ml editor": 
':get iji,a:close ni 



^ 
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Attention 
Programmers! 



ANALOG Computing is interested in programs, articles, and software review sub- 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number 



Send your programs and articles to: 

ANALOG Computing 

P.O. Box 1413-M.O. 

Manchester, CT 06040-1413 



/ 
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12 ALL COLOR ISSUES 
pNLy $19^5/ 

. .: Save oveir $15 ' 

off the cover. pricfe!" 
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• ARC AD E. ACTIO ly 

• STRATEGY fiUlDES 

• TECHNIP^L REPORTS^ 
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Yes! 



UideoCames 

& Computer Entertainment 

P.O. BOX 16927, N. HOLLYWOOD, CA 91615 



n I CO : Sign me up for 12 issues for only $19.95 — I'll save over $15! 

D Payment Enclosed — Charge My D VISA D MC NAME 

EXP ADDRESS 



SIGNATURE. 



CITY. 



STATE. 



ZIP. 



Your first issue will arrive in 6 to 8 weel<s. 
Money back on unused subscriptions if not satisfied! WATCH FOR IT!! 
Foreign— add $10 for postage. Offer expires June 28, 1989 



CJQYA 



No Frills Software 
800 East 23rd Street 
Kearney, NB 68847 
(308) 234-6250 
$19.95 



The Convertery 
Version l*l 

Reviewed by Matthew J.W. Ratcliff 



Over the years, Print Shop has been the 
most popular graphics program for the 8-bit 
Ataris. More recently Newsroom has been 
ported to the Atari, making it very close to 
a complete desktop-publisher. While support 
for the 8-bit Ataris has slackened, Hi-Tech 
Expressions has come on strong with many 
impressive graphics printing programs at 
remarkably low prices. Among these, the 
most popular are Print Power, AwardWare 
and Sesame Street Print Kit. If you have more 
than one of these programs, then you need 
The Converter from No Frills Software. 

The Converter can translate graphics from 
one format to another with ease. It can pro- 
vide a directory of Print Shop disks, allow 
you to load and edit an icon and save it to 
a Print Power disk, for example. Once load- 
ed and run, The Converter first allows you 
to specify Drive 1 or 2 as the current drive. 
At the left of the display, occupying the up- 
per three-quarters of the screen, is the graph- 
ics work area. Here all your graphics will be 
loaded and displayed. With a joystick plugged 
into Port 1, you can edit your favorite graph- 
ics and icons here. 

On the right side of the display is a text 
window, where directories are listed. It is also 
used as a clip area, for use when icons must 
be trimmed before being saved to a new for- 
mat. At the bottom left is a small text- 
command window. Using the arrow keys on 
the keyboard you may highlight LOAD, 
SAVE, EDIT, AW-PrP (convert AwardWare 
to Print Power format), or SPEC (change 
drive specification) and simply press Return. 
The bottom center of the screen is used to 
display text prompts, and show the current 
operating status of The Converter. Above this 
is one line of text where you will specify drive 
and filenames. 

Once the drive is logged, you are ready to 
select an icon to edit. The Converter is very 
smart in that it detects just what sort of disk 
format you are working with. If a standard 
DOS format disk is detected, you are prompt- 
ed to load a Print Power, AwardWare graph- 
ic or an AwardWare seal . Sesame Street Print 
Kit is the same format as Print Power. If a 
Print Shop disk is detected, which is a non- 
standard format, you are simply prompted for 
an icon name. 

You may press the Return key at any file- 
name prompt for a list of the current files. 



of the current graphics type. When the direc- 
tory is listed to the 16-line text window, you 
may keep pressing Return to see more files 
or enter the name of the graphic to load it. 
Print Power graphics names may have both 
upper and lower case, and their names must 
be typed exactly as they are seen on the dis- 
play. Tlie Convener is smart enough to switch 
the keyboard input to lower case, when neces- 
sary, and back to upper case when appropri- 
ate. The user interface of Tlie Converter is 
well-thought-out. I am impressed with its 
user friendliness and built-in "intelligence" 
which helps prevent goof-ups. 

Once the name has been entered, you may 
immediately select SAVE to convert it to a 
new format. The first time SAVE is select- 
ed, you are prompted to select Clip Art, 
AwardWare Graphic ox AwardWare Seal for- 
mats. Since there are so many Print Shop icon 
editors and converters available in the pub- 
lic domain, the authors of Tlie Converter do 
not support saving to Print Shop disks, only 
loading from them. 

The Clip Art files are for Newsroom users. 
77if Converter will format a clip-art disk for 
you, if necessary. Why pay big money for 
Newsroom graphics disks, when you can con- 
vert tons of Print Shop icons in the public 
domain? 

Saving to an AwardWare graphic or seal 
will add more graphics to the nifty ribbons, 
awards and certificates you can make with 
this program. Print Power and Sesame Street 
Print Kit use a different directory than does 
AwardWare. When you select the "AW-PrP" 
menu option, 77?e Converter will read all of 
the AwardWare graphics on the selected drive 
and build the correct directory file, allowing 
the same disk to be used with any of these 
Hi-Tech programs. Any time you add another 
AwardWare graphic to an existing disk, you 
must run the "AW-PrP" option once again, 
to rebuild this directory file. 

Tlie Converter documentation warns you 
not to place more than 64 graphics files on 
a disk, due to directory size-limitations of 
Atari DOS. SpartaDOS users can have twice 
that number on a disk. And SpartaDOS X 
users can have over 1400 graphics on a sin- 
gle disk. Yes, that is correct, Tlie Converter 
is completely SpartaDOS compatible. It is not 
protected, allowing you to make a backup 
copy, run it under a different DOS, run it 



from a large RAMdisk, or even install it on 
a hard drive! I switched to Hi-Tech products 
because they are unprotected, allowing me to 
use them on my ICD FA-ST hard drive. With 
The Converter I have been able to move all 
of my Print Shop icons, from their incom- 
patible format disks, onto my hard drive, for 
use with my favorite Hi-Tech Expressions 
software. 

When a graphic is loaded, you may select 
EDIT to modify the picture. This is a power- 
ful feature lacking in Hi-Tech's products. The 
arrow keys, or a joystick in Port 1, moves the 
editing cursor (a flashing pixel). While edit- 
ing, a complete menu of all the controls is 
displayed in the text window at the right. 

To shift the picture you can simply press 
the Control key, and then the arrow keys. This 
will rapidly slide the graphic in any direc- 
tion you choose. Box and line commands are 
supported. The graphic may be inverted with 
the negative command. Before you get ready 
to make a drastic change, simply press the 
B key to buffer the picture, then, if you do 
not like the change, press U to undo it. 

This editor is much faster than the one 
found m Newsroom. If you want to personal- 
ize some of the AwardWare graphics, The 
Converter will certainly help you get the job 
done. 

The conversions do not come full circle, 
but seem quite adequate. To summarize. The 
Converter can load Print Shop icons, Award- 
Ware graphics, AwardWare seals. Print Pow- 
er graphics and Sesame Street Print Kit 
graphics. The Converter can save AwardWare 
graphics, AwardWare seals (and make Award- 
Ware disks compatible with Print Power) and 
Newsroom clip art. 

Tlie Converter is one of the most useful, 
powerful and flexible utilities I have encoun- 
tered in ages. It does just about everything 
and does it well. If you have any of the Hi- 
Tech products mentioned, you will want Tlie 
Converter for its graphics-editing capabilities. 
If you have two or more of these products 
from different vendors. The Converter will 
make short order of pooling all your favorite 
graphics. No Frills Software also sells a myri- 
ad of public-domain Print Shop icon disks, 
collected from users' groups and bulletin 
boards across the country. Tlie Converter is 
a superbly crafted product, at a down-to-earth 
price. fl 

APRIL A.N.A.L.O.Q. Compucing 



Computer Vis ions 



3257 KiferRoad 
Santa Clara, CA 95051 
(408)749-1003 
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STORE HOURS 
TUE- FRI 10am- 6pm 

SAT - 10am - 5pm 
CLOSED SUN- MON 



SOO/ r^X / X E SOFTW ^^ RE 

ALL TITLES ON DISK 



ENTERTAINMENT 

ALIANTS 26.95 

ALT. REALITi' CIT.Y.... 26.95 

ALT. REALITY DUNGEON. 26.95 

BEYOND CASTLE WOLF 14.95 

BISMARK 26.95 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN. . . . 14.95 

DALLAS QUEST 7.95 

D-BUG 7.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD HAT MAC 7.95 

KARATEKA 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

MONTEZUMA'S REVENGE... 14.95 

MOUSETRAP 17.95 

NINJA 8.95 

O'RILEY'S MINE 9.95 

RESCUE ON FRACTALAS... 13.50 

SPEEDKING 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STOCKMARKET 22.50 

STRIP POKER 26.95 

THE HULK 7.95 

TOMAHAWK (64K) 26.95 

TOP GUNNER 17.95 

ZAXXON 13.50 

SPORTS 

FIGHT NIGHT 17.95 

LEADERBOARD 13.50 

MICROLEAGUE BASEBALL.. 35.95 

MUSIC 

MUSIC CONSTRUCTION SET 13.50 
VIRTUOSO 29.95 

PROGRAMMING 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71 .95 

KYAN PASCAL 62.95 

LIGHTSPEED C 35.95 

LOGO 19.95 

MAC/65 71.95 

MAC/65 TOOLKIT 26.95 

PILOT 19.95 

PRODUCTIVITY 

ATARIWRITER+ 39.95 

BANK STREET WRITER.... 14.95 
CELEBRITY COOKBOOK ... 26.95 



COMPUTE YOUR ROOTS ... 3 5.95 

COMPUTER GOURMET 26.95 

FAMILY FINANCE 6.95 

HOME ACCOUNTANT 19.95 

HOME FILING MANAGER. . 6.95 

HOMEPAK 24.95 

LETTER WIZARD 29.95 

NEWSROOM (1050 - 64K). 44.95 

NEWS STATION 26.95 

NEWS STA. COMPANION. . 26.95 

PRINT POWER (1050) 13.50 

PROOF READER 17.95 

PUBLISHING PRO 35.95 

SYNCALC 31.50 

SYSCALC {130XE) 44.95 

SYNTREND (130XE) 35.95 

THE LOTTO PROGRAM .... 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44.95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VISICALC 24.95 

ART 

ANIMATION STATION .... 8 9.95 

BLAZING PADDLES 31.50 

EDUCATION 

BUZZWORD 35.95 

HEY DIDDLE (AGE 3-10). 9.95 

MASTER TYPE 14.95 

PLANATARIUM 22.50 

TOUCH TYPING 9.95 

CBS (AGE 3-6) : 

ASTROGROVER 8.95 

BIG BIRD SPEC DELIVE 8.95 

ERNIE'S MAGIC SHAPE. 8.95 
DESIGNWARE: 

MATHMAZE (6-11) .... 35.95 
MISSION ALGEBRA (13+)35.95 

SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC S 8.95 

COUNT AND ADD 8.95 

SMART THINKER 8.95 

SPELLING 8.95 

SUBTRACTION 8.95 

THINKING SKILLS 8.95 

ALL 6 TINK TONKS.. 39.95 
WEEKLY READER (PRE-SCHOOL) : 

STICKY BEAR SHAPES . 26.95 

STICKY BEAR NUMBERS. 26.95 

STICKY BEAR ABC'S .. 26.96 

STICKY BEAR OPPOSITE 26.95 



soo/ ex: / x: E s oet^w^^. re 

ALL TITLES ON CARTRIDGE 



ENTERTAINMENT 

ALIEN AMBUSH 9.95 

ACE OF ACES .(XL/XE) . 24.95 

ARCHON 19.95 

ASTEROIDS 15.95 

ATARI TENNIS 9.95 

BALL BLAZER 19.95 

BARNYARD BLASTER 

(REQ. LIGHT GUN)... 24.95 

BATTLEZONE 19.95 

BLUE MAX 19.95 

CAVERNS OF MARS 14.95 

CENTIPEDE 14.95 

CHICKEN 9.95 

CHOPLIFTER 14.95 

CLAIM JUMPER (400/800) 9.95 

CLOUDBURST 9.95 

DAVIDS MIDNIGHT MAGIC 19.95 

DEFENDER 14.95 

DESERT FALCON 19.95 

DIG DUG 19.95 

DONKEY KONG 5.00 

DONKEY KNOG JR 19.95 

EASTERN FRONT (1941). 19.95 

E.T. PHONE HOME 9.95 

FINAL LEGACY 19.95 

FOOD FIGHT (XL/XE)... 19.95 

FROGGER 14 .95 

GALAXIAN 19.95 

GATO 24 .95 

GORF (400/800) 5.00 

GYRUSS 14.95 

JOURNEY TO PLANETS .. 9.95 

JOUST 19.95 

JUNGLE HUNT 19.95 

KABOOM! 14.95 

LODE RUNNER 24.95 

MARIO BROS 19.95 

MILLIPEDE 19.95 

MISSILE COMMAND 5.00 

MOON PATROL 19.95 

MR. COOL 9.95 

MS. PAC MAN 19.95 

NECROMANCER 19.95 

PAC MAN 5.00 

PENGO 19.95 

POLE POSITION 19.95 

POPEYE 14.95 

Q-BERT 14.95 

QIX 14.95 

RESCUE ON FRACTALAS . 19.95 

RETURN OF THE JEDI .. 14.95 

ROBOTRON:2084 19.95 



SKY WRITER 

SLIME (400/800) . 
SPACE INVADERS . 
STAR RAIDERS . . . 
STAR RAIDERS II 
SUPER BREAKOUT . 
TRACK S FIELD . . 
WIZARD OF WOR. . . 



14. 95 

9.95 
14.95 

5.00 
19.95 

9.95 
24.95 

5.00 



SPORTS 

FIGHT NIGHT 19.95 

FOOTBALL 14.95 

HARDBALL 19.95 

ONE ON ONE (XL/XE)... 19.95 

TRACK & FIELD 24.95 

PRODUCTIVITY 

ATARIWRITER 19.95 

MICROFILER 22.50 



EDUCATION 



MATH ENCOUNTERS 9.95 

FISHER PRICE (PRE SCHOOL): 

DANCE FANTASY 8.95 

LINKING LOGIC 8.95 

LOGIC LEVELS 8.95 

MEMORY MANOR 8 . 95 

SPINNAKER (AGE 3-10) : 

ALF IN COLOR CAVES . 9.95 

ALPHABET ZOO 9.95 

DELTA DRAWING 9.95 

KIDS ON KEYS 9.95 

KINDERCOMP 9.95 

(AGE 7 - ADULT) : 

ADVENTURE CREATOR .. 9.95 

FRACTION FEVER 9.95 




ATARI XE GAME 
MACHINE 

$139.95 

Includes Missile Command, 
Flight Simulator II, Bug Hunt, 
light gun, Joysticl(, BASIC 
programming language, and 64K 
of memory with detachable 
)ceyboard. Add a diskdrive and 
printer for complete home 
computter system!! 




s zjjf^ejr: sfec z.A.r^s 

RECONDITIONED ATARI MERCHANDISE - 30 DAY WARRANTY 




BOOKS ONLY 

DE RE ATARI 
ATARIWRITER 
DOS 2,5 
BASIC REF. 
LOGO 
BOOKKEEPER 



10.00 
10.00 
12.95 



10.00 
10.00 



ATARI 

SPACE AGE 

JOYSTICK 

$5.00 

GREAT GIFTS! 



SOO (48K) 
COMPUTER 

$79.95 

INCLUDES BASIC 



ATARI 820 PRINTER 

40 COLUMNS 

DIRECT CONNECT 

NO INTERFACE 

REQUIRED 

$39.95 



1010 PROGRAM 

RECORDER 

$29.95 

410 PROGRRMl 

RECORDER - NO WARRANTY 

$9.95 



1030 MODEM 

WITH 

EXPRESS! 

$24.95 

GET ONLIN'E TODAY! 



ATARI 
TRACKBALL 

$9.95 

SPICE UP THE ACTION IN 
YOUR ARCADE GAMES!! 



400 (16K) 
COMPUTER 

$29.95 

48K UPGRADE KIT 
$25.00 



102 COLOR 
PRINTER/ PLOTTER 

$29.95 

40 COLUMNS WIDE 

INCLUDES PAPER AND 

COLOR PEN SET 



ATARI 

NUMERIC 

KEYPAD 

$7.95 

INCLUDES HANTDLER 
DISK- 



ATARI 
BOOKKEEPER 

$14.95 - NO BOX 

(19.95 WITH KEYPAD) 

$24.95 - IN BOX 

(29.95 WITH KEYPAD) 



DISKETTES 

AS LOW AS 20 CENTS 

10 FOR $4.00 

100 FOR $29.95 

1000 FOR $200 

MOST ARE UN-NOTCHED 

WITH OLD SOFrWARE 



SHI PPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk 
drive. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders may be pre-paid 
with money order, cashier check, or personal check. Personal checks are held tor three weeks before order is processed. C.O.D orders are shipped 
via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with cashier check or money 
order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. Phone orders accepted TUESDAY THROUGH 
FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. Write or call for free 
catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 
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BASIC 

Editor n 



bv Clayton Walnum 



BASIC Editor II is a utility to help you 
enter BASIC program listings pub- 
lished in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor II, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type in Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to disk with the com- 
mand SAVE "D:EDimRLl.BAS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD ••EDITORLl.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"D:ML.DAT". 



(8) Save the resultant program with the com- 
mand LIST "D:EDITORII.LST". 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER ' 'C: ' '. 

(9) On a new cassette, save the resultant pro- 
gram with the command LIST "C:". 

Using the Editor 

Take a look at one of the BASIC program 
listings in this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor II with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, type Y and press 
RETURN. Otherwise, type N. 

Note: If you set BASIC Editor 11 to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window will display 
each line after it's processed, as well as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the typ- 
ing window. Type a program line and press 
RETURN. The line will be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazine, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The line you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any line previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher. 
These lines fall within the BASIC Editor 11 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The command E, without a line 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor n at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will return you to BAS- 
IC. Enter LIST to review your work, if you 
wish. Note that lines 32600 and above are the 
Editor program. Your work will appear be- 
fore these lines. To return to the Editor, type 
GOTO 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram will be erased from memory, and you 
may then save your work in any manner you 
like. If you type A^, the Q command will be 
aborted. 



Large listings 



If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor H with the ENTER command. 
Type GOTO 32600, and you're back in 
business. 

APRIL A.N.A.L.O.B. Computing 



The post-processor 

Many people may not want to use BASIC 
Editor II when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor 11 will allow 
you to check and edit your programs after 
they've been typed. 

To take advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor n with the 
ENTER command, then type GOTO 32600. 

Respond with A^ to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor. 

The line will be processed, and the check- 
sum, along with the program line, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
command E, and the line wUl be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy ^s Law 

Anyone who's been associated with comput- 
ing knows this is the industry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor U, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
tempting to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor n to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of). If 
you want to take chances, BASIC Editor n is 
willing to comply. 



When you^ve finished entering a 

program using BASIC Editor II, you 

can be certain it contains no typos. 



Listing 1. 
BASIC lisUng. 



32608 IF FL THEN 3Z6i6 

3260Z DIM L$(X15) ,SU$(11S1 ,C2SC21 ,B$C1 

1S),MSC113),5S(98),ES(65),<iS(1) : FL = 1 ; S 

TMT0B = PEEK(136)+PEEKC137)lt256 

32604 GRAPHICS 0;POKE 718, : P = t OBR::0 ! 

? "OLLOW OBBREUIflTIONS"; lIHPUT ««!IF A 

S="Y" OR OS="y" THEN flBR=l 

32606 BS(1)=" "!BS{115J=" "iB$(2I=BS 

32616 OPEN ni7,4/8,"E!"!L$=" "1G05UB 3 

266215T0Hr=0 

32618 POKE 766,1!P0KE 83, 39 ; POSITION 1 

,3;IF LEHtLS)<39 THEN ? LS:COTO 32624 

32628 IF LENtL$J<77 THEN 7 LStl,38):? 

LS(39,LEM[LS) J iCOTO 32624 

32622 ? LSC1,38)!? LSC3S,7611? L$C77,L 

EK(L$)) 

32624 POKE 752,0!P0KE 766,O:P0KE 559,3 

4:P0KE 82,1:P0KE 83, 38 ; POSITION 8,101? 

" "JilNPUT ni7;LS!P0KE 766,1 
32626 IF tLS="P" OR LS="P"1 AND ST«RT= 
THEN P=1;LS="" 

32628 IF LS="E" OR L$="e" THEN E=1;P0S 
ITION 1,10!? SUS GOTO 32624 
32630 IF L$ = "0" (JR L$ = "q" THEN 32698 
32632 IF Li-"" OMD P=l THEN 32686 
32634 IF LS="" THEN 32624 
32636 IF LS="B" OR LS="b" THEN GROPHIC 
S 8:? "TYPE 'GOTO 32608' TO CONTINUE": 
END 

32638 IF L$C1,1)="E" OR LSCl,l>="e" TH 
EN E = 1!TRAP 32624;EL=k/0LCLS(2)) :P05ITI 
ON 1,9:LI5T EL:GOTO 32624 
32648 5gS=L$!TR0P 32624 ! K=VflL(LS) 
32642 START=1!IF P AND NOT E THEN 326 
52 

32644 GOSUB 32674:IF NOT ABR OR P THE 
N 32652 

32646 POKE 766,0!? CHRS (125J : POSITION 
0,3IL=UAL(LS) !LI5T Ll? I? !? "CONT"!LS 
= B$ 

32648 POSITION 8,B!P0KE 842,13iST0P 
32650 POKE 842, 12 : A=USR (ADR (S$) , ADR (L$ 
) ,4) !L$=LSC1, A) 

32652 CHK5UM=U5RCADR(M$) ,ADR(L$) ,LEKCL 
5)1 !CHK5UM=CHK5UMtPEEK(154 2)«65536 
32654 CHK = CHK5UM-<IHT(CHKSUM/676)1»676) 
!HI=IHTtCHK/26) ! LO=CHK- (HI»26) ! CZ$ CI] = 
CHRS(HIt65) lC2S(2)=:CHIlSCL0t65) 
32656 IF NOT P OR E THEN E=8!C05UB 32 
662!IF NOT P THEN 32668 
32658 POKE 83,39!P0KE 752,l!F0H K=3 TO 

5:P0SITI0N 1,X:? B$(1,3B) IPOSITION 1, 
K+7!? 85(1,38) !NEXT XiPOKE 83,38 
32668 POKE 766,1:P0KE 83, 38 : POSITION S 
,7!? C2$lP0KE 752,0IG0TO 32618 
32662 GOSUB 32782!P0KE 766,8iP0KE 752, 
l:? "H"!P0KE 82,l!DL=PEEK(S68Jt256»PEE 
K(561)t4 

32664 POKE DL-1,78;P0KE DLt2,6IP0KE DL 
+3,112!POKE DLt4,112!P0KE DLtS,112lP0K 
E DLtl3,112!P0KE DLtl4,112 
32666 POKE DLt22, 112 ! POKE DL+23,112!P0 
KE DLt24,6S:P0KE DL + 25, PEEK (560) 1 POKE 
DLt26,PEEK(561) iPOKE 83 ,39 

32668 POSITION 20,01? ' 

':POSITION 0,7!? 




IPOSITION 



32672 POKE 559, 34 ! RETURN 

32674 GRAPHICS OIPOKE 559,8!P0KE 766,1 

!P0KE B2,0!P0KE 83, 39 1 POSITION 8,3!? L 
$!? !? !? !? "CONT"1P05ITION 8,8 
32676 POKE B42,1J!ST0P 
32678 POKE 842,12!TRAP 32682 ! A=U5R (ADR 

(E$),UAL(L*)) IIF A:4 THEN POP IGOTO 32 

32680 RETURN 

32682 GOSUB 32662!S0UND 8, 75, 10, 8 ! FOR 

X=l TO 20!NEXT XISOUND 8, 8 , 8, 8 ! POSITIO 

N 1,31? "SYNTAX ERR0R!"1P0KE 766,1 

32684 POKE 83, 38 : POSITION 1,18!? SU$!G 

OTO 32624 

32686 LINEzPEEK (5TMTAB) tPEEK (STMTABtl) 

)«256!IF LIHE>32599 THEN 32698 

32688 0FS=PEEK(5TMTABt2) ! STMTAB=STMTAB 

tOFS!POSITION 1,9!LI5T LINE!GOTO 32624 

32690 POKE 766, 8 I POSITION 1,181? "READ 

Y TO OUIT"; !IHPUT ASlIF A$<>"Y" THEN P 

OSITION 1,10!? B$(l,38) !GOTO 32624 

32692 GRAPHICS 8:? 1? !? !FOR X=32ee8 

TO 32636 STEP 2!? KINEXT X!? "CONT"!PO 

SITION 8,8!P0KE 842,13!ST0P 

32694 POKE 842, 12 ! GRAPHICS 8!? !? !? ! 

FOR X-32638 TO 32674 STEP 21? XINEXT X 

!? 1? "C0NT"IP05ITI0N 8,8 

32696 POKE 842,13!ST0P 

32698 POKE 842, 12 ! GRAPHICS 81? I? !? I 

FOR X=32B76 TO 32782 STEP 2!? XiNEXT X 

1? !? "POKE 842,12"lPaSITI0M 0,8 



32708 POKE 842,13sST0P 

32702 POKE 16,112:P0KE 53774, 112 ! RETUR 

N 



CHECKSUM DATA. 

fsee issue 39's Unicheck) 



32608 DATA 6,665,923,757,889,171,225,8 
98,532,499,518,267,912,144,735,8453 
32638 DATA 97,358,230,693,706,878,317, 
127,36,597,238,258,182,430,168,5315 
32668 DATA 864,953,472,385,887,724,72, 
687,988,736,625,612,672,184,891,9672 
32698 DATA 8,856,85,949 



Listing 2. 
BASIC Usting. 

18 DIH L$(120] ,HL$(119) ,A$(1] 
20 GRAPHICS OIPOKE 710,0!? "QISK OR QA 
S5ETTE"; !INPUT AS!IF AS<>"C" AND AS<>" 
D" THEN 20 

30 IF AS="C" THEN 58 

40 ? "PLACE FORMATTED DISK IN DRIUE"I7 
"THEN PRESS RETURN" ! INPUT LSlOPEN m, 
8,8,"D!ML.DAY"!GOT0 68 

50 ? !? "READY CASSETTE, PRESS RETURN" 
;!INPUT L$!0PEN HI, 8,0, "C!" 
60 L$="32608 MS (1) =" ! LS (13) =CHR$ (34) 
70 N=119!G0SUB 130 ! L$ (14) =ML$ (1, 58) ! 1$ 
(LEN(LS) tl)=CHRS(34) !? ni;L$ 
80 LS(1)="32618 MS (59) =" ! LS (14) =CHR$ (3 
4) 1LS(15)=MLS(59) 1 LS (LEN (LS) +1) =CHRS (3 
4) !? BIJLS 

90 L$(l)="32612 SS="!LS(10)=CHRS(34) 
100 MLS=""!N=98!G05UB 130 ! LS (11) =HLS ! L 
S(LEN(LS)tl)=CHRS(34) !? t»l;L$ 
110 LS(1)="32614 ES="!LS(10)=CHRS(34) 

120 MLS= N=69!G05UB 130 ! LS (11) =ML$ ! L 

S(LEN(LS>tl)=CHRS(34) !? BljLSlEND 

130 FOR K=l TO N!HEAD A ! MLS (X) =CHRS (A) 

!NEXT X!RETUnN 

140 DATA 104,104,133,284,184,133,283,1 

04,104,133,205,169,0,141,3,6,141,2,6,1 

41,4,6,141,5,6 

150 DATA 141,6,6,238,3,6,32,68,218,172 

,2,6,177,203,133,212,32,170,217,32,182 

,221,32,68,218 

160 DATA 173,3,6,133,212,32,170,217,32 

,219,218,32,218,217,165,212,141,0,6,16 

5,213,141,1,6,24 

178 DATA 173,8,6,109,4,6,141,4,6,173,1 

,6,189,5,6,141,5,6,144,3,238,6,6,238,2 

160 DATA 6,172,2,6,196,205,208,176,173 

,4,6,133,212,173,5,6,133,213,96 

190 DATA 104,104,133,204,104,133,203,1 

04,104,141,255,6,169,8,133,213,216,165 

,88,133,285,165,89,133,205 

208 DATA 174,255,6,24,165,205,105,48,1 

33,205,144,2,230,206,202,208,242,160,8 

,177,205,201,64,144,18 

218 DATA 281,96,144,19,281,128,144,18, 

281,192,14 4,6,281,224,144,7,176,8,24,1 

85,32,144,3,56,233 

228 DATA 64,145,283,288,192,114,240,2, 

208,215,177,283,281,32,288,3,136,286,2 

47,200,132,212,96 

238 DATA 184,104,141,254,6,104,141,253 

,6,169,0,133,213,216,165,136,133,285,1 

65,137,133,286,168,8,177 

248 DATA 205,205,253,6,208,8,280,177,2 

05,205,254,6,240,15,160,2,177,205,24,1 

01,205,133,205,144,228 

250 DATA 238,206,176,224,160,4,177,205 

,281,55,240,4,168,8,248,8,132,212,96 



CHECKSUM DATA. 

fsee issue 39's Unicheck] 



18 DATA 203,265,465,844,294,973,652,27 
0,978,797,278,275,835,209,301,7639 
iO DATA 355,94,254,428,935,848,588,41 ^_, 
,974,564,5435 |H 
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If you ever plan to go to Las Vegas for 
COMDEX, be sure to book your room ear- 
ly. I didn't follow this advice and as a result 
had to spend the first few hours in "glitter 
city" searching for a room. Fortunately, the 
gamble paid off— I got a room— but the motel 
had to be the worst I've ever stayed in. (Ex- 
cept for the night I missed my connecting 
flight in Houston and was put up (and out) 
in a real fleabag, courtesy of Continental 
Airlines. But that's another story.) 

For months before, Atari billed Winter 
COMDEX 1988 as the show that would 
demonstrate how serious Atari was about 
making a showing in the U.S. computer mar- 
ket. There had been a lot of anticipation 
among users, retailers and the few still-non- 
jaded members of the press. It all happened 
in the "Gold Room"— a large, separate room, 
slightly off the main drag of the principal ex- 
hibit hall. The Atari room was packed from 
morning to night. Unfortunately, it was 
packed with people rather than new Atari 
products. 

Although Atari had a big booth, they failed 
to announce any significant new products, 
claiming that they didn't want to introduce 



new products before they were ready. 
However, some three- to four-dozen exhibi- 
tors were pleased with the crowds and the 
response to their products (more on that 
later). The highlight event of the week was 
a live mini-concert by Fleetwood Mac, right 
in the Gold Room. Of course, the band was 
using plenty of MIDI-equipped instruments 
all controlled by a Mega ST. 



Stealth Laptop 



It could have been called that— it was there 
and yet it wasn't. We got a look at it back at 
the hotel where it was being shown somewhat 
secretly. Two versions were observed: an 
actual-size Styrofoam mock-up (the lightest 
laptop I've yet seen) and a (family-size) work- 
ing prototype. The prototype used a Mega 
motherboard and it contained one double- 
sided disk drive. It had a supertwist LCD 
screen (a backlit version is said to be availa- 
ble as an option), a built-in trackball con- 
troller to replace the mouse, MIDI ports and 
contained one megabyte of memory. Exact 
details were sketchy, but the laptop could con- 
ceivably contain a built-in hard disk (proba- 



bly 20 megabytes) by the time it reaches 
production early in 1989. 

Atari's target price for the laptop is $1,500. 
Perhaps Atari will be the first with a "Mac 
Laptop," beating Apple to the finish line. 



The Hi^h End 



Atari's long-awaited and much-rumored 
68030 machine (the "TT") was apparently 
not ready in time to be shown. But Sam 
Tramiel briefly described it at a gathering of 
developers. It is said to be TOS-compatible, 
uses Unix 5.31 and will run at 16 MHz. In- 
siders also say it will include a math co- 
processor and hard disk. According to Atari 
it will be available in the second quarter of 
1989. 

The Abaq, now called the Atari Transputer 
Work Station (ATW), was seen in its latest 
version. It features the T800-20 transputer 
processor chip, which can perform 10 mil- 
lion instructions per second (MIPS) and in- 
cludes 4K of RAM, a floating-point process- 
or and four asynchronous communications 
links. Up to four additional transputer chips 
can be combined on an expansion board for 

APRIL A.N.A.L.O.Q. Computing 



parallel-processing applications, and the 
ATW can hold four expansion boards, for a 
maximum total of 17 transputer processors. 
In addition to the transputer chip(s), the 
ATW has a 68000 processor for input/out- 
put functions and the Blossom graphics 
processor for memory refresh and graphics 
acceleration. The floor-standing machine 
runs X-Windows, the Unix windowing sys- 
tem and is expected to be used for applica- 
tions requiring accelerated high-resolution 
graphics, lots of memory and fast storage, 
such as CAD, animation, desktop publishing 
and 3-D modeling. Atari said that manufac- 
turing will begin during the first quarter of 
1989, with the first units currently scheduled 
to ship to Europe. 



Cloning Around 



Well, Atari did show a couple of new 
products. For one, there was an AT clone. 
Billed as the PC-3 (or was it the PC-4?), it 
used an 80286 microprocessor, had a hand- 
ful of expansion slots and incorporated EGA 
graphics. Specifications differed depending 
upon which Atari spokesperson you talked to. 
It wasn't clear how much RAM was standard 
nor what capacity hard disk was available, but 
most AT clones typically have at least a 
20-megabyte hard disk and one megabyte of 
RAM. Pricing and availability were equally 
elusive, but most accounts suggested that it 
would be shipped sometime around the mid- 
dle of the year. 

The other mystery PC was an 80386-based 
computer dubbed the PC-5. It too had some 
sort of hard disk and expansion slots. Pric- 
ing information was unavailable and delivery 
was expected to be "mid-year." Apparently, 
both the 286 and 386 PCs will first be in- 
troduced to the overseas market. That is prob- 
ably a good idea, since from what little 
pricing information I heard about these 
machines, they appeared not to be competi- 
tive with the dozen or so clones that are al- 
ready available. 

More Atari News 

Atari was also showing their new Mega 
File 30, a 30-megabyte hard disk for the ST 
line of computers. The hard disk sells for 
$900, fits nicely under a monitor and plugs 
into the DMA port on an ST or Mega com- 
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puter. It has an average access time of 65 mil- 
liseconds and up to four hard disks can be 
daisychained together. 

The CD-ROM player was not shown at the 
booth or anywhere else for that matter. Sam 
Tramiel told me that its release is dependent 
upon software becoming available for it. Atari 
is currently pursuing CD-ROM software de- 
velopment with several vendors and hopes to 
be able to release the product sometime in 
1989. 

Atari also announced that they have just 
concluded signing a contract with a major 
memory chip supplier. Atari expects that with 
the increased availability of DRAM chips, 
they will be able to solve their production 
problems. They also hope that with more 
production, they can begin to supply the U.S. 
market with more STs and thus regain some 
of that lost market. However, it will take more 
than just additional memory chips to 
strengthen the U.S. market. What is needed 
is a serious commitment by Atari, complete 
with a major advertising campaign. 

Atari is also continuing its search for a U.S. 
manufacturing facility. With a better supply 
of memory chips. Atari should be able to 
move ahead with their plans for increased 
production capability. A U.S. plant seems to 
fit well into these plans. 

In an effort to strengthen relations with de- 
velopers and the entire ST-user base, Sam 
Tramiel has announced that it will be easy 
for anyone to send electronic mail to him or 
Sig Hartmann. There will be a direct 
Easyplex line via CompuServe in place by the 
time you read this. He also stated his desire 
to hold more on-line conferences with users. 
Definitely a good move for Atari. 

Software-Desktop Publishing 

Atari was showing Ultmscript, a Postscript 
emulator for the Atari Desktop-Publishing 
System. It's a page-description language that 
is used with Atari's SLM804 laser printer and 
Mega ST2 or Mega ST4 systems. Ultmscript 
provides a variety of fonts, gray scales and 
halftones. Type is treated as a raster image 
and can be rotated and scaled. Included fonts 
are the Lucida family (six styles), Helveti- 
ca, Courier, Times Roman, Palatino, Avant 
Garde, Bookman, New Century Schoolbook, 
Souvenir, Garamond, Zapf Chancery, Zapf 
Dingbats and Symbol. 



Another software announcement from 
Atari was the DeskSet II desktop-typesetting 
package. This professional program uses the 
GEM interface, contains a text editor, an 
object-oriented draw package and can accept 
ASCII files and graphics from ST paint pro- 
grams. It is designed to work with the Atari 
SLM804 laser printer and Mega computers. 
Genuine Compugraphic scalable outline fonts 
are used for both printing and on the screen. 
Features include automatic and user-definable 
kerning, reverse video, condensed and ex- 
panded type, linguistic-based hyphenation 
and text flow into arbitrarily shaped graph- 
ics regions. Suggested price is $300. 

ISD Marketing was showing still another 
desktop-publishing program in the Gold 
Room called Calamus. This long-awaited 
desktop-publishing program provides text and 
document processing, design tools and page- 
layout capabilities. It uses a full GEM inter- 
face with mouse control and drop-down men- 
us or can be used with keyboard commands. 
It uses vector fonts rather than Postscript-type 
fonts and provides loads of features such as 
outline fonts, printer preview, automatic kern- 
ing and stretching. It can output in PDL, 
DDL, interpress and linotype formats. It sells 
for $300. 

SoftLogik was showing their recently com- 
pleted program PageStream, formerly Pub- 
lishing Partner Professional. It incorporates 
typographical features, word processing, page 
layout and graphics. It also offers capabili- 
ties such as color separation of pictures with- 
in documents and color printing. 
Word-processing features include spell check- 
ing, search-and-replace by attributes, auto- 
matic kerning, scalable fonts and text flow 
around irregularly shaped graphics. Text ro- 
tation can be performed in one-degree incre- 
ments and text point-sizes range from l/50th 
to 1310 points. PageStream sells for $200. 

Other Software Highlights 

QMI was showing all of their latest wares. 
The GEM-based ST-Talk Professional offers 
several types of file-transfer protocols, an 
auto-dialer and an auto-dialer database, script 
language for automated sign-on and other 
tasks, ANSI and Vidtex graphics and a host 
of disk utilities. It also includes a built-in 
word processor, capture-while-editing, type- 
ahead with three lines, activity-logging and 



unattended auto-answer capabilities. ST-Talk 
Professional sells for $40. 

QMI was also showing Disk Librarian, a 
program that helps you keep track of your 
software and data files. The program will 
read the contents of a selected disk and al- 
low you to sort, search and add comments 
to its database. Then the program can print 
disk labels from the information you provid- 
ed it. Disk Librarian sells for $30. 

David Small was there demonstrating his 
Spectre 128 Macintosh emulator cartridge and 
software. His new company, Gadgets by 
Small, continues to provide Macintosh com- 
patibility on the ST with this new $180 
product. Spectre 128 has a faster screen 
redraw and file-access time compared to the 
Magic Sac, Dave's previous creation. Spectre 
can use either the Mac 128K or 64K ROMS, 
runs all Mac system and Finder versions and 
runs the major Mac software such as Hyper- 
Card, Adobe Illustrator and Pagemaker. 

Michtron was in the Atari Gold Room an- 
nouncing that GFA has dropped Michtron as 
a distributor for the GFA BASIC series of soft- 
ware. In its place, Michtron is now selling 
Hi-Soft BASIC, which is a complete and fast 
version of BASIC that is Microsoft BASIC 
compatible. It allows direct porting of BAS- 
IC programs to/from the Amiga and MS- 
DOS machines. Hi-Soft BASIC sells for $160. 

Regent Software was showing their data- 
base program Regent Base II with 4GL SQL, 
which uses the U.S. standard database lan- 
guage called Structured Query Language. 
The language uses English phrases to perform 
data insertion, modification and retrieval of 
information stored in the database tables. A 
utilities program allows you to visually cre- 
ate, modify or delete your database tables and 
you can also import or export dBase III files. 
In addition, another utility allows you to move 
your database onto a RAMdisk for faster ac- 
cess. Regent Base II sells for $150. 

Intersect Software Corp. is committed to 
the development of high-quality software for 
the ST computer. This was evidenced by their 
new program called Revolver. It is primarily 
a switcher program but also combines an as- 
sortment of utilities. Revolver lets you con- 
figure the ST memory into as many as eight 
partitions, each of a different size and total- 
ed 



ly independent of each other. Even if one of 
the partitions crashes, it will not affect the 
others. When in one partition, you can "roll- 
out" the entire partition, including the 
memory contents, values stored in the hard- 
ware registers and any active programs, desk 
accessories and RAMdisks. When the 
memory image is "rolled" back in, the com- 
puter, programs and data will be restored to 
their previous state. Revolver sells for $50 and 
requires one megabyte of memory. 

Intersect Software was also showing two 
other programs. Interlink is their telecommu- 
nications package that features call-logging, 
background downloading, PC-ANSI graph- 
ics, ATASCII graphics and a buih-in mini- 
BBS. The program also includes a type-ahead 
buffer, auto-dialer, built-in disk commands, 
user-definable function keys and more. 
Masterlink contains all of the features of In- 
terlink but also has an advanced script lan- 
guage, context-sensitive help and remote 
control operation. Interlink sells for $40, 
while Masterlink retails for $60. 

Several companies were showing MIDI 
software for the ST. Dr. T's Music Software 
has Sample Maker, a digital laboratory pro- 
gram for sample creation and editing. It uses 
the standard GEM interface, provides graph- 
ics sample editing and supports such sam- 
plers as the S-900, Emax, EPS, FZ-1, Mirage 
and Prophet 2000. 

Another program from Dr. T's, Phantom, 
is a combination MPE software module and 
hardware that enables you to both read and 
write industry-standard SMPTE time-code 
formats (24, 25, 30 and 30df), song-pointer- 
encoded FSK and standard pulse sync. The 
hardware plugs into the ST serial port and has 
a sync-in, sync-out, MIDI-in and Aux-MIDI- 
out connections. Suggested price for Phan- 
tom is $249. 

Dr. T's other MIDI-based software is The 
Copyist. It is a publishing-quality score- 
editing, transcription and printing program 
that supports both mouse and keyboard in- 
put. Notes, text symbols and lines can be 
placed wherever you desire in a page and can 
be separately moved or deleted. It will tran- 
scribe treble, bass, alto and percussion clefs 
and will convert any of the supported formats 
to any other. Tlie Copyist sells for $399. 



Hybrid Arts was demonstrating ADAP, a 
general purpose, professional, digital-audio 
workstation. The program is designed to pro- 
vide complete control of stereo audio while 
retaining digital fidelity throughout the 
production process. ADAP has a variety of 
uses. For musicians, it can be a high-quality 
MIDI performance sampler; for radio sta- 
tions, it can be used to help produce com- 
mercial spots; for film and video 
postproduction work, it can be used for ef- 
fects editing, background looping, dialog fill 
and electronic foley. 

Hybrid Arts also has a product called 
SMPTE Track. This hardware/software pack- 
age allows you to synchronize any type of au- 
dio (or video) recorder to your ST computer. 
The device is specifically designed to read 
and write SMPTE time code. Since the 
SMPTE time is read directly into the RS-232 
port without converting to MIDI clock, it 
provides an extremely accurate lock to tape. 
Legend Software introduced The Final Cut, 
a MIDI sequencer for the ST. It uses animat- 
ed tape reels and standard tape machine con- 
trols to provide a powerful multi-track 
recording environment. The program features 
a wide variety of editing ftinctions such as 
cut, paste, append, repeat, merge, transpose, 
etc. Tlie Final Cut also provides an event edi- 
tor for editing individual notes and their 
parameters, two time-correction methods, full 
MIDI synchronization and special effects op- 
tions for creating echoes and fade-ins. Sug- 
gested retail price is $90. 

Midisoft was displaying their Midisoft Stu- 
dio music software. The Standard Edition 
offers an easy-to-use method for real-time 
recording, playback and overdubbing as well 
as incorporating up to 32 polyphonic in- 
dependently controlled tracks. Tape recorder- 
style controls are used with either a mouse 
or the keyboard and 70,000 notes per song 
can be recorded. The Advanced Edition has 
all the features of The Standard Edition plus 
64 independent tracks, MIDI event editing, 
velocity scaling, automatic quantization, 
transpose and instrument changes for each 
track, MIDI thru controls and support for 
programmable tempo changes. 77ie Standard 
Edition costs $99, and The Advanced Edition 
costs $149. 
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FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



THE A.N.A.L.O 


.G, #71 


DISKETTE CONTAINS 18 


MAGAZINE 


FILES. THEY 


ARE LISTED 


BELOW. 


SIDE 1: 












FILENAME 


EXT 


LANG. 


LOAD 


COMMENTS 


KRAZYMZE 


OBJ 


ML 


(#3) 


KRAZY MAZES 


KRAZYMZE 


M65 


MAC/ 6 5 


LOAD 


KRAZY MAZES SOURCE 


PIXELAVG 


BAS 


BASIC 


LOAD 


PIXEL AVERAGING 


PIXELAVG 


M65 


MAC/65 


LOAD 


PIXEL AVER. SOURCE 


UNIVERT 


BAS 


BASIC 


LOAD 


UNIVERT 


UNIVERT 


M65 


MAC/65 


LOAD 


UNIVERT SOURCE 


GDWl 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW2 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW3 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW4 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW5 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW6 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW7 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW8 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDW9 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


GDWIO 


LST 


BASIC 


ENTER 


GAME 


DESIGN 


MLEDITOR 


BAS 


BASIC 


M/L EDITOR 




EDITORII 


BAS 


BASIC 


BASIC 


EDITOR II 



TO LOAD YOUR A.N.A.L.O.G. DISK 



1) INSERT BASIC CARTRIDGE (NOT REQUIRED FOR XL 
OR XE COMPUTERS) 

2) TURN ON DISK DRIVE AND MONITOR 

3) INSERT DISK IN DRIVE 

4) TURN ON COMPUTER (XL AND XE OWNERS DO NOT 
HOLD DOWN OPTION KEY ! ) 



WARNING: BEFORE YOU RUN A PROGRAM, READ THE 

APPROPRIATE ARTICLE IN THE MAGAZINE. 

NOTE: ONLY PROGRAMS WITH THE ".BAS" OR ".OBJ" 
EXTENTION MAY BE RUN FROM THE MENU. 
OTHER PROGRAMS SHOULD BE LOADED AS 
INSTRUCTED IN THE LOADING NOTES AND MAY 
REQUIRE ADDITIONAL SOFTWARE AS LISTED 
BELOW. HOWEVER, YOU SHOULD NOT ASSUME 
THAT EVERY FILE WITH THE PROPER FILE 
EXTENSION WILL RUN FROM THE MENU. YOU 
MAY HAVE TO MOVE CERTAIN PROGRAMS TO A 
DIFFERENT DISK TO OBTAIN CORRECT RESULTS. 



EXT DESCRIPTION 



.M6S 


REQUIRES 


.AMA 


REQUIRES 


.ASM 


REQUIRES 


.ACT 


REQUIRES 


.LGO 


REQUIRES 


.SYN 


REQUIRES 


.STB 


REQUIRES 


LOADING NOTES 



THE OSS MAC/6 5 ASSEMBLER 
THE ATARI MACRO ASSEMBLER 
THE ATARI ASSEMBLER/EDITOR 
THE OSS ACTION! CARTRIDGE 
THE ATARI LOGO CARTRIDGE 
THE SYNAPSE SYN ASSEMBLER 
ST BASIC 



LOAD BASIC PROGRAM: 
ENTER BASIC PROGRAM: 
LOAD MAC/65 PROGRAM: 
ENTER ASM/ED PROGRAM: 
LOAD LOGO PROGRAM: 
LOAD SYN/AS PROGRAM: 



LOAD "D:FILENAME.EXT" 
ENTER "D:FILENAME.EXT" 
LOAD #D: FILENAME. EXT 
ENTER #D:FILENA1-)E.EXT 
LOAD "D:FILENAME.EXT" 
LOAD "D:FILENAME.EXT" 



#1: 
#2: 
#3: 



#5: 



SEE ACTION! MANUAL. 

SEE ATARI MACRO ASSEMBLER MANUAL. 

MAY ALSO BE LOADED PROM DOS USING THE "L" 

OPTION OP THE DOS MENU. 

THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "AUTORUN. SYS" . 

SEE ST BASIC MANUAL. 



Passport Design's Master Tracks Pro is a 
sophisticated MIDI recording and editing 
package. Its five main modules provide 64 
tracks of real-time and step-time input, 
graphical song editing, graphical step edit- 
ing, a system-exclusive librarian and 
keyboard-control mapper. It also reads and 
writes standard MIDI files and sells for $350. 
Master Tracks Jr. is a low-cost personal MIDI 
recording studio. Used with MIDI instru- 
ments, it provides a composing environment 
for recording your own songs. Master Tracks 
Jr contains tools for composing, recording 
and editing music with a graphical interface. 
The program is fully compatible with Master 
Tracks Pro files and industry-standard MIDI 
files and sells for $130. 

Masterscore from Russ Jones Software is 
a scoring program for the ST that converts 
PRO-24 files to notation. It provides the capa- 

APRIL A.N.A.L.O.B. Computing 



bility for up to 48 staffs, transposing of sin- 
gle sections or entire voices, naming staffs, 
ritardandos/accelerandos, repeats, first and 
second endings, crescendos/decrescendos and 
editing. The program supports MIDI song 
files, can print on dot matrix or laser printers 
and sells for $350. 

Pro-24 III is a MIDI sequencer with a note 
capacity of 150,000 events or 999 measures. 
It can contain either 24 polyphonic or 32 
monophonic tracks and use linear or song- 
mode sequencing. It also features a drum- 
machine mode and real-time graphic editing 
via note-grid, music score or rhythm editor. 
Pro-24 III sells for $295. 

By the Way 

COMDEX is a huge show, no question 
about it. Here are some facts and figures that 
describe the event, compiled by The Inter- 



face Group, the show's promoters. 

One thousand workers were hired to set up 
the exhibits, which took six days or 65,000 
staff-hours. It took about four full days to tear 
it down. Some 1,600 trucks traveled to Las 
Vegas carrying six million pounds of exhibits, 
which were spread over eight exhibit areas. 

Attendees numbered about 100,000, used 
some 60,000 hotel rooms (I don't know where 
the rest of them slept) and required the serv- 
ices of 650 taxis over the course of the four- 
day event. There were over 1,000 temporary 
workers hired to help the exhibitors, about 
1,000 police and security people on duty and 
more than 1,300 telephone lines installed. 

These facts are incredible. So is the esti- 
mated revenue to Las Vegas— $138 million. 
COMDEX is something else. So is Las Ve- 
gas. I wonder how I survived it? 

Catch you next time. H 

65 



continued from page 41 

Other DELPHI members by E-mail. 

Replying by E-mail 

If you wish to reply to a Forum message 
in private, you can send an E-mail reply from 
the FORUM prompt by typing REP MAIL. 
An E-mail message is automatically ad- 
dressed for you, along with a subject header 
pertaining to the Forum message. All you 
have to do is type your reply, and then enter 
Control-Z to send the message. It's all done 
without leaving the Forum. 



Sending Copies of 
Forum Messages 

You may sometimes wish to share Forum 
messages with others on DELPHI (or send 
a copy to yourself for later reference). You 
can do this by typing FOR followed by the 
membername(s) to which you wish the copy 
sent at the FORUM prompt. 

If you wished to send a copy of a message 
to KZIN, you would read the message in 
question, then type FOR KZIN. You would 
then be prompted for a subject for the E-mail 
message; enter it and press Return, and the 
message is on its way— again without your 
having to leave the Forum. 



Goin^ to Mail 



If you find that you need to go to Mail to 
read messages or whatever, simply type 
MAIL at the FORUM prompt, and you'll 
move to DELPHI'S E-mail system. After you 
take care of your business in Mail, type EXIT 
or enter Control-Z, and you'll be returned to 
the FORUM prompt. The last message you 
read will remain the current message, and any 
commands you've implemented (such as 
FOLLOW) will remain in effect. 



Filing Messages 



mail messages, or for whatever reason, you 
can place one in your personal Workspace. 
Type FILE followed by a filename after you 
read a message, and the system will create 
a new file in your Workspace that contains 
the Forum message. 



Gettini Help 



I've explained the more important Forum 
commands and features in detail here, but you 
may still need help while in the Forum, on 
occasion. When you need help, first type ? 
to see the Forum menu; this command list 
will most likely answer your question. For 
more detailed help with any command, type 
HELP followed by the name of the command 
(Example: HELP DIRECTORY). 

You can also type HELP or /HELP dur- 
ing any operation (such as editing) for more 
detailed information. 

Utilities 

Two utilities help you manage message ac- 
cess: High Message and Set Topics. 



Hi^h Message 



If you'd like a copy of a message for later 
download, editing, sending to others as E- 



Your high message is the highest number 
message (also the most recent) you have read 
in the Forum. High Message is a simple util- 
ity that displays the highest message you've 
read and allows you to reset the high mes- 
sage number. 

You may wish to check this number while 
you're in the Forum to see just where you're 
at. You may wish to reset it so that no mes- 
sages before that number are presented as 
"new" messages. For either purpose, type 
HIGH at the FORUM prompt. You'll see this: 

High Message on Entry: 38401 
Current High Message : 38401 
New Value (or RETURN): 

If you press Return, the message number 
will be unchanged. If you type in a new num- 
ber, the system will consider any message 
with a number higher than the number you 



entered as unread, whether you've read it or 
not. 

(Note; You can set your high message num- 
ber to the highest message in the Forum by 
typing 99999 at the FORUM prompt. This 
is useful, too, if you don't feel like reading 
all new Forum messages and simply wish to 
"clear" unread messages.) 



Set Topics 



In addition to using DIR and READ witii 
qualifiers to select specific messages, you can 
further limit the messages you'll see, by topic. 
For example, if you aren't a game player, you 
won't want to see messages under the "Games 
& Entertainment" topic. 

You can render messages in that topic (or 
any other topic or topics) effectively invisi- 
ble to you with the Forum's SET TOPICS 
command. (Topic access can be reinstated if 
you change your mind.) 

To select or de-select the appropriate 
topics, type TOPICS and follow the prompts. 
(Topics available in the Atari SIG are General 
Interests, Games & Entertainment, Telecom- 
munications, Utilities, Sight & Sound, Edu- 
cation, Recent Arrivals, Reviews & News, 
Koala Pictures, Current Issue, and Home 
Use.) 

Weekly Conferences 

The weekly Atari SIG conferences are still 
rolling. Drop in and meet your fellow Atari 
users and SIG managers any Tiiesday at 10 
P.M. , EST. You'll find the conferences an ex- 
cellent venue for sharing information about 
Atari computers, getting answers to questions 
and participating in friendly discussions of 
all types. 

In addition to science fiction novels and 
books on model rocketry and other topics, 
Michael A. Banks is the author o/ DELPHI: 
The Official Guide and The Modem Refer- 
ence, bothfivm Brady Books. You can write 
to him via E-mail on DELPHI to member- 
name KZIN. fl 
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Cheat! 



Alpha Systems 

1012 Skyland Drive 

Macedonia, OH 44056 

(216) 467-5665 

$24.95 

Reviewed by Clayton Walnum 



<3>^ 





Have you ever seen the higher levels of 
Karateka or made it through every screen of 
JumpmarP. Have you ever attained a score of 
999,999 in Shamus: Case III Unless you're 
a dedicated computer gamer who spends ev- 
ery free moment of his time twisting a 
joystick, the answer to these questions— and 
many other similar ones— is probably "no." 
Now, thanks to Cheat! from Alpha Systems, 
you can be a video-game hotshot every time 
you boot up. 

Cheat! allows you to modify over one 
hundred games so that you have unlimited 
lives. What's more, the process is painless 
and simple. Just boot the Cheat! program 
disk, select the Cheat option, choose a 
game from the menu and then insert the game 
disk. That's all there is to it. Cheat! will 
modify the disk with no further input. 

The program works by scanning each sec- 
tor of the game disk, looking for the section 
of code that handles the life-count portion of 
the game. When it locates that code, it writes 
a new code to the disk that stops the program 





from decrementing the number of remaining 
lives whenever you get "killed." Although the 
process is simple, the disk scanning can take 
several minutes. 

Also included on the Cheat! disk is a pro- 
gram called Uncheat! The more astute among 
you will have already guessed that this pro- 
gram takes a disk that's been modified by 
Cheat! and returns it to its original condition. 




The program's manual is short, containing 
only three pages of instructions; but, because 
Cheat! is so simple to run, a larger manual 
is unnecessary. It would have been nice, 
however, if the manual included a list of the 
games that Cheat! can modify. You must boot 
the program to get this list. 

Also, the manual is not entirely accurate 
in its description of how to run the program. 
It appears that the manual was intended for 
a different version of the program than the 
one supplied. For example, the manual states 
"Press 'Z' for a directory of all the game 
names on the Cheat! disk." In actuality, 
pressing Z just brings up the disk's directo- 




ry, not a listing of the games (which is al- 
ready shown on the screen, anyway). Also 
according to the manual, the program offers 
you the option of entering the disk sector on 
which the "lose-life" portion begins. This 
sector number is supposedly shown next to 
the name of the program on the menu but it 
didn't appear on my copy of Cheat! The menu 
listed only the names of the games and the 
letter to press to select them. 

Although it was not possible for me to test 
Cheat! on every game listed in the menu, I 
did test it with quite a few, including Jump- 
man, Zeppelin, Repton, Cyclod, Caverns of 
Mars, Ghost Encounters, Chicken, Protec- 
tor II, Shamus: Case II, Boulderdash, Gate- 
way to Apshai and ANALOG Computing's 
own Livewire and Roto. Of those tested, the 
only games Cheat! didn't seem to work with 
were Zeppelin and Caverns of Mars. After 
scanning these disks. Cheat! informed me 
that it "couldn't find the lose-life routine." 
It's possible that both of these games are 
available in different versions. I don't know. 

At any rate, if you'd like to attain some ex- 
traordinarily high scores or get to some lev- 
els that you've never seen before. Cheat! may 
be a program worth looking into. The price 
tag's a wee bit on the high side, but, consider- 
ing the number of games the program is able 
to modify, it's a worthwhile addition to a 
gamer's software library. 
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Let's say you're mixing some garden spray 
and it calls for so many tablespoons per gal- 
lon, but you have a measuring device that's 
marked in fluid ounces. Or let's say you have 
an old seafaring friend who thinks in leagues, 
and you're trying to tell him how far a light 
year is. These two examples are rather differ- 
ent, but both involve conversions between 
systems of units. Univert can handle both, and 
many more. 

There have been, a number of conversion 
programs published for the Atari, including 
one which appeared way back in ANALOG 
14. Typically, these convert between English 
and metric units and have a limited selection 
of possible conversions. Try, for example, to 
convert meters to furlongs, or, to take an ex- 
treme, cubic microns to cubic miles. Further- 
more, these programs usually require the user 
to make choices from menus of conversion 
options printed on the screen. 

Univert is different. It can convert between 
any units of length, area, volume, weight 
(mass), angle or time. If you can come up 
with some new units Univert hasn't heard of, 
they can be easily added. And Univert is 
smart. You merely type in the number you 
want to convert followed by the units, either 
spelled out or abbreviated, then the units you 
want to convert to, and Univert gives you the 
answer. If you misspell the units or give 
Univert something it doesn't recognize, it tells 



you. And if, like us, you're often not sure 
about spelling, there's a Help option that lists 
the units available and their standard abbrevi- 
ations. 

Running the Program 

Running Univert is straightforward. Once 
you have typed in Listing 1 and saved it (and 
don't forget to check your typing with BAS- 
IC Editor 11), simply type RUN. Univert takes 
about ten seconds to load the tables it uses 
plus a machine-language subroutine, then 
prompts you for the next value to be convert- 
ed. Type in the number of "whatevers" you 
want to convert from, followed by the units 
and a return. Put a space between the num- 
ber and the units, and between each word of 
the units if more than one word. For exam- 
ple, to convert 27.5 square feet type "27.5 
SQUARE FEET". You can use standard ab- 
breviations, too, (no periods, please) so you 
could also type "27.5 SQ FT". 

The number can be any valid BASIC nu- 
meric, so for very large or small numbers you 
can use scientific notation, such as 3.274E-6. 

After the value to be converted from is en- 
tered, Univert asks you for the units to be 
converted to. The same rules for units apply. 
Then Univert gives you the answer and is 
ready for the next conversion. Use System 
Reset or Break to exit the program. 



Univerr 

The Universal Conversion Program 



by William Frasz anil ffe/tf Brockwav 
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If at any time you are not certain of the 
units or abbreviations to use, type HELP in- 
stead of a "to" or "from" entry. Univert will 
ask you for the first letter of the units you 
want and will list all the ones it knows that 
begin with that letter. 

Mow It %rks 

There are two principal features of Univert 
that give it its speed and versatility. The speed 
comes from a machine-language search rou- 
tine, and the versatility comes from a pair of 
tables containing units character strings and 
conversion factors. 

The search routine is represented by the 
DATA statements at lines 1000-1030. (An as- 
sembly listing is included in Listing 2.) It is 
loaded into memory page six and called via 
the BASIC USR statements at lines 590 and 
660. When Univert initializes, it builds a long 
string variable, TABLES, by reading the units 
listed starting at line 5000 and inserting a 
comma between each one to define sub- 
strings. The search routine performs a 
random-record-length search of TABLES us- 
ing the commas as delimiters and returns an 
index to the substring that matches the units 
typed. 

The index returned by the search routine 
is used by BASIC to fetch two values: a con- 
version factor and a "type" code from 
another table, FACTOR. This table is a two- 
dimensional array formed by reading the 
DATA statements at line 6000 and following. 
The type code tells Univert which of the six 
types of conversions mentioned above is to 
be performed. The codes are defined as 
follows: 

1 = lineal 

2 = area 

3 = volume 

4 = weight (mass) 

5 = time 

6 = angle 

When valid "from" units are entered by the 
user, the type code from the FACTOR table 
is saved, and the number you entered is mul- 
tiplied by the conversion factor to convert it 
to a value, FRNUM, in a standard intermedi- 
ate set of units. This is a key feature of 
Univert's design. The intermediate units are 
(in order by type) meters, square meters, cu- 
bic meters, grams, seconds and degrees. 
Then, when the "to" units are entered, FAC- 
TOR is again accessed, and the type code is 
checked against the saved type code. If it does 
not match, you are told you have requested 
a conversion between incompatible units and 
are asked again for the "to" units. Otherwise 
FRNUM is divided by the conversion factor 

7D 



associated with the "to" units to obtain the 
result. 

Neat, huh? This means Univert can han- 
dle any new units you may want to add so 
long as they are one of the six types. You just 
add the units string as a DATA statement at 
the next available line in the 5000's and the 
type code and conversion factor (to give 
meters, grams, etc.) as a DATA statement at 
the corresponding line in the 6000"s. Also, 
be sure to change the value of COUNT at line 
100 to equal the right three digits of both line 
numbers. 

A final note on accuracy: The conversion 
factors in many cases are not exact. To keep 
the typing task manageable, we limited the 
number of significant digits to seven. This 
should be sufficient for most purposes, but 
you can add more digits if you feel like it. 
(Atari BASIC supports nine or ten significant 
digits.) This non-exactness, combined with 
the mechanism of converting through an in- 
termediate value, does sometimes result in an 



LISTING 1: BASIC 



answer that may seem strange. For example, 
the conversion from 1 POUND to OUNCES 
(via grams) gives an answer which is very 
nearly, but not quite, the exact answer, which 
is 16. This is the small price you pay for the 
universality of Univert. 

Now put away your book of look-up tables, 
your hand calculator and even your diction- 
ary. The next time someone asks you how 
many decimeters there are in a cubit, just fire 
up your Atari and ask Univert. 



William Frasz is a regional ser\>ice man- 
ager for Fujitsu, Inc. , installing and repair- 
ing telefax machines and other electronic 
equipment. William uses a 130XE to main- 
tain service records of the equipment he ser- 
vices. Reid Brockway is a software and 
systems engineer for Intennetrics, Inc. Reid 
designs real-time software for aircraft and 
space applications, as well as doing general 
design of computer-based systems. 



le REM KMKMKKMKmclCICKMllKWXIIWKWKKWKXXXM 

11 REM * UNIVERT * 

12 REM w by M. Frasz and R. BrockwayM 

13 REM * » 
I 14 REM « COPVRIGHT 1989 * 

15 REM * BV ANALOG COMPUTING W 

16 REM KWKKKXKXKKKKXMKXWMItMXKKKMMKKKW 
58 GRAPHICS e:POKE 7e9,12:P0KE 710,48: 
DL=PEEK C56e) +256«PEEK (561) 

60 POKE DL+S,71:P0KE DL+6,6:P0KE DL+27 
,6:P0KE DL+28,65:P0KE DL+29, PEEK (560) : 
POKE DL+3e,PEEKC561) 

78 POS ITION 6,8;? "uni vert" ; POSITION 3 
, 5 : ? "■iiHi'i:Km:HiT'I'i:i'J=<:I--»'i:iJ;t'HIEl 
Id" 
88 POSITION 5,13:? "brought to you by" 
:P0SITI0N 15,15:? "Biff & The Bitfreak 

II 

98 POSITION 2,21:? "(LOADING TABLES)" 

180 C0UNT=144 : PARSE=4ee : M0RK=5ee : HELP= 

2B0:MAIT=80e 

lie DIM BLANK$(4e) :BLANK$=" 

":REM (39 
SPACES) 

120 DIM TABLES (2808), TEMP$ (38) ,FRUNITS 
$(28) ,T0UNITS$(28) ,FACT0R(C0UNT,1) , A$( 
1) 

138 RESTORE 1888:F0R 1=8 TO 184:READ X 
:P0KE 1536+1, X:NEXT I 
148 RESTORE 5888 

158 FOR 1=8 TO COUNT: READ TEMP$ 
168 LET TABLES (LEN (TABLES) +1)=TEMP$:LE 
T TABLES(LEM(TABLES)+1)="," 
178 NEXT I 
188 RESTORE 6088: FOR 1=8 TO COUNT: READ 

A, B : FACTOR (1,8) =A : FACTOR (1,1) =B : NEXT 
I 

198 GOTO H0RK:REM (Don't forget your 1 
unch.) 

288 ? "H":POSITION 6,0:? "univert" : POS 
ITION 23,8:? "**» HELP *«»":? 

218 POSITION 3,1:? "Enter first letter 
of units: "; 

220 INPUT ttl6,A$ 

230 POSITION 4,21:? " ( L-t *! JJ tHTC I) " 

248 1=8: J=8:R=2:C=l 

258 1=1+1 

268 IF TABLE$(I,I)=A$ THEN 318 

278 1=1+1 
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288 IF TABLESCI, I) <>",■■ THEN 270 

290 J=J+1!IF J=COUNT THEN POSITION 4,2 

1:? BLANKS: RETURN 

388 GOTO 258 

318 TEMP$="" 

328 TEMP$ CLEN CTEMPS) +1) =TABLE« tl, 1} : 1= 

I+l 

338 IF TABLE$tI,I)<>"," THEM 328 

348 POSITION C,R:? TEMPS 

350 IF C=l THEN C=20:G0T0 290 

360 C=l:R=R+l;GOTO 290 

488 REM *** "FROM" STRING PARSE SUBROU 

TINE *** 

410 FLAG=0: 1=1 :L=LEN (TEMPS) 

420 IF L=8 THEN 480 

430 IF I=L THEN 470 

440 IF TEMPS tI,IJ<>" " THEN 1=1+1: GOTO 

430 
450 TRAP 480:FRNUM=UALCTEMPS(1,I}) 
460 FRUHITSS=TEMPSCI+1,L) :return 
470 IF TEMP$="HELP" THEN FLAG=2 : RETURN 
480 FLAG=l:RETURN 
500 REM »» START OF HORK SCREEN »*» 

518 ? "H":P0SITI0N 6,0!? "uni vert" : pos 

ITION 1,1:? "Instructions:" 

528 ? "Values to be converted should b 

e":? "entered in the forM:":P05iTlON 6 

,5:? "nuMber followed bff units" 

530 ? :? "For exanple, 27.5 square fee 

t" : ? 

548 ? "If uncertain of units, type HEL 

P":? :? 

558 POSITION 1,12:P0KE 702,64:? "Enter 

next value to be converted:":? ; 
560 INPUT ttie, TEMPS :G0SUB PARSE 
570 P OSITI ON 4, 19: IF FLAG=1 THEN ? "Nu 
Mber H JhMJ then units, please.": GOSUB 
MAIT:G0T0 HORK 

580 IF FLAG=2 THEN GOSUB HELP: GOSUB HA 
IT: GOTO HORK 

598 INDEX=USR (1536, COUNT+1, ADR (TABLES) 
, ADR (FRUNITSS) , LEN (FRUNITSS) ) 
600 IF INDEKOe THEN 620 

618 POSITION 2,19:? "I don't recognize 

; FRUNITSS: GOSUB MAIT : GOTO HORK 
620 TYPE=FACTOR(IHDEK-1,0) 
630 TEMP=FRNUM*FACT0R(INDEK-1,1) 
640 POSITION 1,15:? "Enter units desir 
ed:":? ;:INPUT ttie,TOUNiTSS 

650 IF TOUNITSS="HELP" THEN GOSUB HELP 

GOSUB hait:? "H":position 6,0:? "univ 
ert":GOTO 640 

660 INDEX=USR C1536, COUNT+l, AOR (TABLES) 
,ADR(TOUNITSS} , LEN (TOUNITSS) ] 
670 IF INDEXO0 THEN 788 

688 POSITION 2,19:? "I don't recognize 
; TOUNITSS: GOSUB hait 

690 FOR R=15 TO 21: POSITION e,R:? BLAN 

KS:NEKT R:G0T0 640 

708 IF FACT0R(INDEK-1,0)=TVPE THEN 748 

718 POSITION 2,19:? "You can't convert 

J FRUNITSS; 
720 IF LEN (FRUNITSS) +LEN (TOUNITSS) >16 
THEN ? 

730 ? " to ";TOUNITSS:GOSUB HAIT:GOTO 
HORK 

740 HESULT=TEMP/FACTOR (INDEX-1, 1) 
750 ? !? FRNUH;" ";FRUMITSS; 
760 IF LEN (SIRS (FRNUM))+LEN (FRUNITSS) + 
LEN (SIRS (RESULT) ) +LEN (TOUNITSS) >33 THE 
N ? 

770 ? " = "; RESULT;" "; TOUNITSS:? :? 
788 GOSUB MAIT: GOTO HORK 
808 REM W»» MAIT FOR KEYSTROKE *** 
818 POSITION 3,21!? "PRESS ANY KEY" 
820 IF PEEK (764) =255 THEN 828 
838 POKE 764,255:RETURN 

1000 DATA 104,104,133,213,104,133,212, 
104,133,204,184,133,203,104,133,206,10 
4,133,205,104,104,133,208,169,1 
1010 DATA 133,207,160,0,177,205,209,20 
3,208,11,200,177,203,201,44,240,38,196 
,208,48,239,165,207,197,212,208,5 
1020 DATA 169,0,133,212,96,200,177,203 
,201,44,208,249,200,152,24,101,283,133 
,283,144,2,238,204,230,207,24,144 
1030 DATA 203,196,208,248,16,288,196,2 
08,208,7,136,177,285,281,83,248,4,168, 
8,248,282,165,287,133,212,96 



VG 


5088 


DATA 


ACRE 


YK 


5881 


DATA 


ANGSTROM 


OZ 


5882 


DATA 


BUSHEL 


PV 


5883 


DATA 


CARAT 


HO 


5884 


DATA 


CC 


KG 


5885 


DATA 


CENTIGRAM 


AH 


5886 


DATA 


CENTILITER 


VL 


5007 


DATA 


CENTIMETER 


BI 


5888 


DATA 


CL 


BY 


5889 


DATA 


CM 


BF 


5010 


DATA 


CORD 


KA 


5011 


DATA 


CU CM 


CU 


5012 


DATA 


CU FT 


BD 


5013 


DATA 


CU IN 


BU 


5014 


DATA 


CU KM 


KP 


5015 


DATA 


CU M 


AH 


5016 


DATA 


CU MI 


DI 


5017 


DATA 


CU MM 


ET 


5018 


DATA 


CU YD 


GQ 


5819 


DATA 


CUBIC CENTIMETER 


NT 


5820 


DATA 


CUBIC DECAMETER 


UB 


5821 


DATA 


CUBIC DECIMETER 


GA 


5022 


DATA 


CUBIC FEET 


UK 


5023 


DATA 


CUBIC F80T 


DU 


5024 


DATA 


CUBIC INCH 


ZY 


5025 


DATA 


CUBIC INCHES 


NJ 


5026 


DATA 


CUBIC KILOMETER 


ZA 


5027 


DATA 


CUBIC METER 


LC 


5028 


DATA 


CUBIC MICRON 


lA 


5029 


DATA 


CUBIC MILE 


HE 


5030 


DATA 


CUBIC MILLIMETER 


MV 


5831 


DATA 


CUBIC YARD 


VR 


5832 


DATA 


CUBIT 


TB 


5033 


DATA 


CUP 


OX 


5034 


DATA 


DAY 


UD 


5035 


DATA 


DECAGRAM 


GL 


5036 


DATA 


DECALITER 


ES 


5837 


DATA 


DECAMETER 


YX 


5838 


DATA 


DECIGRAM 


LF 


5839 


DATA 


DECILITER 


IB 


5848 


DATA 


DECIMETER 


DV 


5841 


DATA 


DEGREE 


OU 


5842 


DATA 


FATHOM 


AU 


5843 


DATA 


FEET 


IX 


5044 


DATA 


FL OZ 


CC 


5045 


DATA 


FLUID OUNCE 


^■1 


5046 
5047 


DATA 
DATA 


FOOT 


AC 


FORTNIGHT 


GT 


5048 


DATA 


FT 


UN 


5849 


DATA 


FURLONG 


TH 


5858 


DATA 


G 


JL 


5851 


DATA 


GAL 


OC 


5052 


DATA 


GALLON 


FP 


5053 


DATA 


GR 


BS 


5054 


DATA 


GRAM 


ED 


5055 


DATA 


HECTARE 


LJ 


5056 


DATA 


HECTOGRAM 


BC 


5057 


DATA 


HECTOLITER 


ZG 


5058 


DATA 


HECTOMETER 


OF 


5859 


DATA 


HOUR 


FR 


5868 


DATA 


HR 


EL 


5861 


DATA 


HUNDREDHEIGHT 


YH 


5862 


DATA 


HHT 


CS 


5863 


DATA 


IMPERIAL GALLON 


EI 


5864 


DATA 


IMPERIAL QUART 


FA 


5865 


DATA 


IN 


ZL 


5066 


DATA 


INCH 


''■ 


5067 
5068 


DATA 
DATA 


INCHES 
KG 


DC 


LY 


5869 


DATA 


KILOGRAM 


HV 


5878 


DATA 


KILOLITER 


VC 


5871 


DATA 


KILOMETER 


FB 


5872 


DATA 


KM 


HC 


5073 


DATA 


L 


AS 


5874 


DATA 


LB 


IH 


5075 


DATA 


LEAGUE 


TU 


5076 


DATA 


LIGHTYEAR 


AN 


5077 


DATA 


LITER 


XH 


5078 


DATA 


M 


ZT 


5079 


DATA 


METER 


DH 


5880 


DATA 


MI 


NV 


5081 


DATA 


MICROGRAM 


DO 


5882 


DATA 


MICROLITER 


TO 


5883 


DATA 


MICRON 


AY 


5884 


DATA 


MICROSECOND 


BU 


5885 


DATA 


MILE 


MK 


5886 


DATA 


MILLIGRAM 


CD 


5087 


DATA 


MILLILITER 


AH 


5088 


DATA 


MILLIMETER 
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ZN 


5889 


DATA 


MILLISECOND 


QZ 


5898 


DATA 


MIN 


XU 


5891 


DATA 


MINUTE 


FR 


5892 


DATA 


ML 


GH 


5893 


DATA 


MM 


RA 


5894 


DATA 


NANOSECOND 


OP 


5895 


DATA 


NAUTICAL MILE 


HE 


5896 


DATA 


OUNCE 


NT 


5897 
5898 
5899 


DATA 
DATA 
DATA 


OZ 


'■VI 


PECK 


TL 


PENNYWEIGHT 


OH 


5188 


DATA 


PICOSECOND 


KR 


5181 


DATA 


PINT 


BC 


5182 


DATA 


POUND 


JV 


5183 


DATA 


PT 


BJ 


5184 


DATA 


PHT 


KO 


5185 


DATA 


QT 


GH 


5186 


DATA 


QUART 


FI 


5187 


DATA 


RADIAN 


RD 


5188 


DATA 


ROD 


MP 


5189 


DATA 


SEC 


KS 


5118 


DATA 


SECOND 


QL 


5111 


DATA 


SECTION 


CE 


5112 


DATA 


SQ CM 


HZ 


5113 


DATA 


SQ FT 


GH 


5114 


DATA 


SQ IN 


GV 


5115 


DATA 


SO KM 


PT 


5116 


DATA 


SQ M 


GA 


5117 


DATA 


SQ MI 


IM 


5118 


DATA 


SQ MM 


JX 


5119 


DATA 


SQ YD 


SM 


5128 


DATA 


SQUARE CENTIMETER 


XL 


5121 
5122 
5123 


DATA 
DATA 
DATA 


SQUARE DECAMETER 


N- 


SQUARE DECIMETER 


BY 


SQUARE FEET 


RC 


5124 


DATA 


SQUARE FOOT 


ZR 


5125 


DATA 


SQUARE INCH 


BQ 


5126 


DATA 


SQUARE INCHES 


VJ 


5127 


DATA 


SQUARE KILOMETER 


YJ 


5128 


DATA 


SQUARE METER 


NI 


5129 


DATA 


SQUARE MICRON 


CQ 


5138 


DATA 


SQUARE MILE 


UY 


5131 


DATA 


SQUARE MILLIMETER 


JF 


5132 


DATA 


SQUARE YARD 


VJ 


5133 


DATA 


STATUTE MILE 


CX 


5134 


DATA 


STONE 


CY 


5135 


DATA 


TABLESPOON 


CH 


5136 


DATA 


TBLSP 


KT 


5137 


DATA 


TB5P 


XI 


5138 


DATA 


TEASPOON 


XM 


5139 


DATA 


TON 


EA 


5148 
5141 
5142 


DATA 
DATA 
DATA 


TOMNSHIP 


m 


T5P 


EU 


YARD 


GS 


5143 


DATA 


YD 


FZ 


5144 


DATA 


YEAR 


GX 


6888 


DATA 


2,4e468564E3 


DY 


6881 


DATA 


1,1.E-18 


TQ 


6882 


DATA 


3,3.52383E-2 


JF 


6883 
6884 
6885 


DATA 
DATA 
DATA 


4,288E-3 


m 


3,l.E-6 


EX 


4, .81 


AY 


6886 


DATA 


3,l.E-5 


DY 


6887 


DATA 


1, .81 


EY 


6888 


DATA 


3, .81 


EG 


6889 


DATA 


1, .81 


JI 


eeie 


DATA 


3,3.624576 


AY 


6811 


DATA 


3,l.E-6 


CA 


6812 


DATA 


3,2.8317E-2 


PK 


6813 


DATA 


3,1.6387e64E-5 


ZM 


6814 


DATA 


3,1.E9 


DZ 


6815 


DATA 


3,1 


HU 


6816 


DATA 


3,4.168182E9 


DV 


6817 


DATA 


3,l.E-9 


LT 


6818 


DATA 


3, .76456 


CE 


6819 


DATA 


3,l.E-6 


UH 


6828 


DATA 


3,1.E3 


ZC 


6821 


DATA 


3,l.E-3 


QT 


6822 


DATA 


3, .828317 


QX 


6823 


DATA 


3, .828317 


TG 


6824 


DATA 


3,1.638786E-5 


TK 


6825 


DATA 


3,1.638786E-S 


ZX 


6826 


DATA 


3,1.E9 


EK 


6827 


DATA 


3,1 


LQ 


6828 


DATA 


3,1.E-18 


IJ 


6829 


DATA 


3,4.1681S2E9 


CZ 


6838 


DATA 


3,l,E-9 


KX 


6831 
6832 


DATA 
DATA 


3, .76456 


i;i;i 


1, .4572 



1 ! 6833 


DATA 


3 


,2.3658E-4 


; 1 6834 


DATA 


5 


, 8.64e8E4 


: I 6835 


DATA 


4 


,18 


: i 6836 


DATA 


3 


,.81 


' J 6837 


DATA 
DATA 


1 
4 


,18 


m6838 


..1 


n7j6839 


DATA 


3 


,l.E-4 


nT3 6848 


DATA 


1 


,.1 


1316841 


DATA 


6 


,1 


Qj6842 


DATA 


1 


,1.8288 


036843 


DATA 


1 


, .3848 


[Tt16844 


DATA 


3 


,2.957373E-5 


ml 6845 


DATA 


3 


,2.957373E-5 


Pn6846 


DATA 


1 


, .3848 


036847 


DATA 


5 


,1.2896E6 


[■116848 


DATA 


1 


, .3848 


[3116849 


DATA 


1 


,281.168 


[716858 


DATA 


4 


,1 


QJ6851 


DATA 


3 


,3.7854E-3 


HI 6852 


DATA 


3 


,3.7854E-3 


I<il6853 


DATA 


4 


,1 


1*16854 


DATA 
DATA 


4 
2 


1 


Q]6855 


1.E4 


; il6856 


DATA 


4, 


188 


! <l6857 


DATA 


3, 


.1 


j 36858 


DATA 


1, 


188 


: 36859 


DATA 
DATA 


5, 
5, 


3688 


TI6868 


3688 


36861 


DATA 


4, 


4.535924E4 


716862 


DATA 


4, 


4.535924E4 


iTTl6863 


DATA 


3, 


4.54eE-3 


TI6864 


DATA 


3, 


1.1366E-3 


lTTl6e65 


DATA 


1, 


.8254 


17-16866 


DATA 


1, 


.8254 


lT'16867 


DATA 


1, 


.8254 


Tn6868 


DATA 


4, 


1888 


T|6869 


DATA 


4, 


1888 


Tl687e 


DATA 


3, 


1 


1T16871 


DATA 


1, 


1888 


n6872 


DATA 


1, 


1888 


^6873 


DATA 


3, 


l.E-3 


^16874 


DATA 


4, 


453.59237 


■TJ6e75 


DATA 


1, 


5.55977E3 


716876 


DATA 


1, 


9.4597E15 


IT1I6877 


DATA 


3j 


l.E-3 


Tl6e78 


DATA 


1, 


1 


7|6879 


DATA 


1, 


1 


Tl688e 


DATA 


1, 


1.689344E3 


316881 


DATA 


4, 


l.E-6 


3J6882 


DATA 


3, 


l.E-9 


1)16883 


DATA 
DATA 


1, 
5, 


l.E-6 


' ■■ 6884 


l.E-6 


' 6885 


DATA 


Ij 


1.689344E3 


> 6886 


DATA 


4, 


l.E-3 


• • 6887 


DATA 


3, 


l.E-6 


6088 


DATA 


1, 


l.E-3 


■ ■ 6889 


DATA 


5, 


l.E-3 


; 1 6898 


DATA 


5, 


68 


l; 6891 


DATA 
DATA 


5, 
3, 


68 


T16892 


l.E-6 


218893 


DATA 


1, 


l.E-3 


716894 


DATA 


5, 


l.E-9 


^6895 


DATA 


1, 


1.8533E3 


716896 


DATA 


4, 


28.3495 


,716897 


DATA 


4, 


28.3495 


716898 


DATA 


3, 


8.889E-3 


716899 


DATA 


4, 


1.555 


31 6188 


DATA 
DATA 
DATA 


5, 
3, 

4j 


l.E-12 


Til 6181 


4.732E-4 


6182 


453.59237 


6183 


DATA 


3i 


4.732E-4 


6184 


DATA 


4, 


1.555 


6185 


DATA 


3, 


9.46326E-4 


6186 


DATA 


3, 


9.4e326E-4 


6187 


DATA 


6, 


57.2957 


6188 


DATA 


1, 


5.8292 


6189 


DATA 


5, 


1 


6118 


DATA 


5i 


1 


6111 


DATA 


2, 


2.598E6 


6112 


DATA 


2, 


l.E-4 


6113 


DATA 


2, 


.892983 


6114 


DATA 


2, 


6.4516E-4 


6115 


DATA 


2, 


1.E6 


6116 


DATA 


2, 


1 


6117 


DATA 


2, 


2.58999E6 


6118 


DATA 


2, 


l.E-6 


I 6119 


DATA 


2. 


.836127 


' t 6128 


DATA 


2, 


l.E-4 


;■ 6121 


DATA 


2. 


188 



7a 
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instructions! 
Values to bo convortod 
ontored in tho foPMi 

nuMbor followed by units 

For exoMplo« 27.8 square foot 

If uncertain of units, type help 

Enter next value to be convertedi 
^SSSJtS""* —irodi 

23 FEET = 18.3333333 CUBITS 

AMV 



6122 


DATA 


2 


.61 


6123 


DATA 


2 


, .692963 


6124 


DATA 


2 


, .692963 


6125 


DATA 


2 


6.4516E-4 


6126 


DATA 


2 


e.45ieE-4 


6127 


DATA 


2 


1.E6 


6128 


DATA 


2 


1 


6129 


DATA 


2 


l.E-12 


6136 


DATA 


2 


2.58999E6 


6131 


DATA 


2j 


l.E-6 


6132 


DATA 


2, 


.836127 


6133 


DATA 


Ij 


1.6e9344E3 


6134 


DATA 


4, 


6358 


6135 


DATA 


3i 


1.479E-5 


6136 


DATA 


3j 


1.479E-5 


6137 


DATA 


3j 


1.479E-S 


6138 


DATA 


3, 


4.928E-6 


6139 


DATA 


4, 


9.e7185E5 


6146 


DATA 


2, 


9.32396E7 


6141 


DATA 


3, 


4.928E-6 


6142 


DATA 


1, 


.9144 


6143 


DATA 


1, 


.9144 


6144 


DATA 


5i 


3.1536E7 



LISTING 2: ASSEMBLY 



.TITLE "SEARCH SUBROUTINE" 
* CONUERSION SEARCH SUBROUTINE W 
A BASIC USR ROUTINE 

INDEK=USR CADR CSUBRl , COUNT, ADR CTABL 
ADR CUNITS] , LEN CUNITS$1 } 

Variable length records 
Records terninated with coMHa 
Checks for trailing "S" 



18 

28 

38 

48 

LE) 

58 

68 

78 

88 

98 

8188 *= 

8118 TBLL = 



8128 TBLH = 

8138 UNITSL 

8148 UNITSH 

8158 RECNUH 

X 

8168 NCHARS 

6178 COUNTL 

8188 COUNTH 

8198 ; 

8288 



$8688 
$CB 

$CC 
: $CD 
: $CE 
: $CF 

: $De 
: $D4 
: $D5 



8218 
8228 
8238 
8248 
8258 
8268 
8278 
8288 



PLA 

PLA 

STA COUNTH 

PLA 

STA COUNTL 

PLA 

STA TBLH 

PLA 

STA TBLL 



; TABLE ADDRESS LO 

; HI BYTE 
; UNITS STRING LO 
; HI BYTE 
;RECORD NUM INDEX 

; CHARS IN STRING 
; RECORD COUNT LO 
; HI BYTE 



; FETCH ARGUMENTS 
; FROM STACK 



8298 

8388 

8318 

8328 

8338 

) 

8348 

8358 

8368 

8378 

8388 

8398 

8488 

8418 

8428 

H 

8438 

8448 

8458 

8468 

8478 

8488 

8498 

8588 

D 

8518 

8528 

8538 

8548 

NDEX 

8558 

8568 

A 

8578 

6575 

8588 

8598 

8688 

8618 

8638 

8648 

8658 

8668 

8678 

8688 

8698 

8786 

8718 

8728 

8738 

8748 

8758 

8768 
8778 
8788 
8798 
8888 
8818 



PLA 

STA UNITSH 

PLA 

STA UNITSL 

PLA 



; CIGNORE HI BYTE! 



PLA 

STA NCHARS 

LDA ttl 

STA RECNUM 
LOOPl LDY no ;USE V AS INDEX 
L00P2 LDA CUNITSL),Y 

CMP CTBLL),Y ; COMPARE CHARS 

BNE SEl ;N0 MATCH, DONE? 

INY ; CHARACTERS MATCH 



LDA CTBLL),V 
CMP »', 
BEQ SE2 
CPY NCHARS 
BMI L00P2 
SEl LDA RECNUM 
CMP COUNTL 
BNE L00P3 

LDA ttO 
STA COUNTL 
RTS 
LOOPS INY 

LDA CTBLL),V 
CMP tt'. 



■;end of record? 
; yes, comp len 
; no, all tried? 

; NO 

;LAST RECORD? 

; NO, NEXT RECORD 

; YES, C0UNT=8 
; NO MATCH 
; RETURN TO BASIC 
;INC CHARACTER IN 



BNE 
INY 
TYA 
CLC 
ADC 
STA 
BCC 
INC 
INC 
CLC 
BCC 
SE2 CPY 
BEQ 
INY 
CPY 
BNE 
DEY 
LDA 
CMP 



L00P3 



TBLL 

TBLL 

*+4 

TBLH 

RECNUM 

LOOPl 

NCHARS 

EXIT 

NCHARS 
SE3 



■;FIND NEXT COMMA 



; ADVANCE POINTER 
; TO NEXT RECORD 
J IF PAGE CROSSED 
; INCREMENT HI 



; LENGTHS EQUAL? 

; YES. 

; LONGER BY 1? 

: NO 
YES 



, TC3 

CUNITSL),Y 

tt's ■;last char an S? 

BEQ EXIT ; YES. 

SE3 LDY tte ; RESET INDEX 

BEQ SEl ;G0 SEE IF DONE 

EXIT LDA RECNUM ; HATCH FOUND 

STA COUNTL ;PA5S REC COUNT 

RTS ; AS RETURN ARG H 
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81497a BEQ RR2 

014988 RTS 

814998 ; 

eiseae jstop vbi & renove players 

815818 i 

815828 STOPAL LDA »9 

815838 5TA VFLG 

815848 LDX tt3 

815858 STP STA HP05P8,X 

815868 DEX 

815878 BPL STP 

815888 RTS 

815898 ; 

815188 ; interMission display list 
815118 ; 

815128 ILST .BVTE $78, $78, $78, $78 
815138 .BYTE $78, $78, $47 

.MORD PSl 

.BYTE $78, $78, $78, $47 

■MORD PS2 

.BYTE $70, $78, $78, $47 

.MORD FIRMS 

.BYTE $41 

.HORD ILST 



815148 

815158 

815168 

815178 

815188 

815198 

815288 

815218 ; 

815228 ;Misc. data & tables 

815238 ; 

815248 VPl .BYTE $44, $44, $4A, $4A 

815258 VP2 .BYTE $24, $24, $2A, $2A 

815268 TITLE . SBYTE " QrAQyEESS 



.5BYTE 



scores 1:888 2: 



815278 SCRTXT 

1888 " 

815288 PSl .SBYTE " SCORE 1 

815298 F5C1 .SBYTE "888 

815388 PS2 .SBYTE " SCORE 2 

815318 FSC2 .SBYTE "888 

815328 FIRMS .SBYTE 



815338 ; 

815348 ;bell sound for Middle naze 

815358 ; 

015368 BELL LDA tt23 
815378 STA $D2ee 
815388 LDX tt$AA 
815398 STX $D281 




815488 


JSR WAIT 




815418 


LDA tte 




815428 


STA $D2ei 




815438 


RTS 




815448 


i 




815458 


; frequencies for bell 




815468 


, 




815478 


NTX .BYTE 8 




815488 


NOTE .BYTE 132,8,143,8 




815498 


i 




815588 


; introduction screen w/ghosts 


815518 


i 




815528 


IHTRO LDA tt <IMTL 




815538 


STA $8238 




815548 


LDA tt >INTL 




815558 


STA $8231 




815568 


CCC LDA GX 




815578 


CMP tt$DA 




815588 


BCC IIA 




815598 


JSR DEFP8 




815688 


IIA LDA GXl 




815618 


CMP tt$DA 




815628 


BCC IIB 




815638 


JSR DEFPl 




815648 


IIB LDA $D81F 




815658 


CMP tt6 




815668 


BNE lie 




815678 


RTS 




815688 


lie CMP tt3 




815698 


BNE CCC 




815788 


JSR ZHSC 




815718 


JMP CCC 




815728 






815738 


;zero out high scores 




815748 






815758 


ZHSC LDA tt$ie 




815768 


LDX tt4 




815778 


IIL STA HSC1,X 




81578? 


STA HSC2,X 




815798 


DEX 




815888 


BPL IIL 




815818 


RTS 




815828 


* 




815838 


,- introduction display li 


St 


815848 


f 




815858 


INTL .BYTE $78, $78, $78 




815868 


.BYTE $78, $47 




815878 


.HORD INTIL 




815888 


.BYTE $87 




815898 


.BYTE $78, $78, $46 




815988 


.MORD CREDIT 




815918 


.BYTE $78, $78, $78, $78, 


$46 


815928 


.MORD PST 




815938 


.BYTE $78, $46 




815948 


.MORD PRSRES 




815958 


.BYTE $78, $78, $78, $78, 


$46 


815968 


.MORD HISC 




815978 


.BYTE $41 




815988 


.MORD INTL 




815998 






816888 


; screen data 




816818 






816828 
II 


INTIL .SBYTE " r H 




816838 
■I 


.SBYTE " K » IHTTn " 


816848 


CREDIT .SBYTE " l:VM :?:!:; 


Lia If 11^:1 


m " 






816858 

II 


PST .SBYTE " start 


play 


816868 


PRSRES .SBYTE " option 


scor 


res " 






816878 


HISC .SBYTE "1: " 




816888 


HSCl .SBYTE "88888 2: " 




816898 


HSC2 .SBYTE "88888 " 




816188 


i 




816118 


;add 1 to high score top 


Man 


816128 


i 




816138 


ADDHl LDX tt4 
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016148 
816156 
816168 
816178 
816188 
816198 
816288 
816218 
816228 
816238 
816248 
816258 
816268 
816278 
816288 
816298 
816388 
816318 
816328 
816338 
816348 
816358 
816368 
816378 
816388 
816398 
816488 
816418 
816428 
816438 
816448 
816458 
816468 
816478 
816488 
816498 
816588 
816518 
816528 
816538 
816548 
816558 
816568 
816578 
816588 
816598 
816688 
816618 
816628 
816638 
816648 
816658 
816668 
816678 
816688 
816698 
816788 
816718 
816728 
816738 
816748 
816758 
816768 
816778 
816788 
816798 
816888 
816818 
816828 
816838 
816848 
816858 
816868 
816878 
816888 
816898 
816988 
816918 
816928 
816938 
816948 
816958 
816968 
816978 



001 INC HSC1,X 

LDO HSC1,X 

CMP tt$10 

BCC OOE 

LDO tt$18 

5T0 HSC1,X 

DEX 

BPL 001 

LDO HSC1,X 
OOE RTS 

;add 188 to top Man 

OHUNl LDX tt2 
JNP 001 

;add 188 to bottoM Man 

0HUN2 LDX tt2 

JMP BBl 
J 
;add 1 to high score bot Man 

0DDH2 LDX tt4 
BBl INC HSC2,X 

LDO HSC2,X 

CMP tt$10 

BCC BBE 

LDO tt$ie 

STO H5C2,X 

DEX 

BPL BBl 
BBE RTS 
f 

;the characer set 



w= MVSET 
.BYTE $88, 
.BYTE §88, 
.BYTE $38, 
.BYTE $38, 
.BYTE $66, 
.BYTE $88, 
.BYTE $88, 
.BYTE $66, 
.BYTE $18, 
.BYTE $86, 
.BYTE $88, 
.BYTE $38, 
.BYTE $DF, 
•BYTE $DF, 
.BYTE $88, 
.BYTE $BE, 
.BYTE $88, 
.BYTE $28, 
.BYTE $88, 
.BYTE $14, 
.BYTE $88, 
.BYTE $3C, 
.BYTE $88, 
.BYTE $18, 
.BYTE $88, 
.BYTE $88, 
.BYTE $88, 
■BYTE $88, 
.BYTE $88, 
.BYTE $88, 
.BYTE $88, 
.BYTE $38, 
.BYTE $7C, 
.BYTE $C6, 
.BYTE $38, 
.BYTE $18, 
.BYTE $7C, 
.BYTE $38, 
.BYTE $7E, 
.BYTE $86, 
.BYTE $8C, 
.BYTE $CC, 
.BYTE $7E, 
.BYTE $86, 
.BYTE $7C, 
.BYTE $CE, 
.BYTE $7E, 



$88, $88, $88 
$88, $88, $88 
$38, $38, $38 
$88, $38, $88 
$66, $66, $88 
$88, $88, $88 
$66,$FF,$66 
$FF,$66,$88 
$3E,$68,$3C 
$7C,$18,$88 
$66,$6C,$18 
$66, $46, $88 
$FD,$DF,$FD 
$FD,$DF,$FD 
$28,$00,$BE 
$00, $28, $88 
$28, $88, $69 
$28, $41, $41 
$14, $88, $96 
$14, $82, $82 
$66,$3C,$FF 
$66, $88, $88 
$18,$18,$7E 
$18, $88, $88 
$88, $88, $88 
$18, $18, $38 
$88,$88,$7E 
$88, $88, $88 
$88, $88, $88 
$18, $18, $88 
$86,$eC,$18 
$68, $48, $88 
$CE,$C6,$C6 
$E6,$7C,$88 
$38, $18, $18 
$18, $18, $88 
$E6,$8C,$18 
$68,$FE,$88 
$8C,$18,$8C 
$66,$3C,$88 
$1C,$3C,$6C 
$FE,$8C,$88 
$68,$7C,$86 
$66,$3C,$88 
$C6,$C8,$FC 
$E6,$7C,$88 
$86,$8C,$18 




816988 
816998 
817888 
817818 
817628 
817838 
817848 
817858 
817868 
817878 
817888 
817898 
817188 
817118 
817128 
817138 
817148 
817158 
817168 
817178 
817188 
817198 
817288 
817218 
817228 
817238 
817248 
817258 
817268 
817278 
817288 
817298 
817388 
817318 
817328 
817338 
817348 
817358 
817368 
817378 
817388 
817398 
817488 
817418 
817428 
817438 
817448 
817458 
817468 
817478 
817488 
817498 
817588 
817518 
817528 
817538 
817548 
817558 
817568 
817578 
817588 
817598 
817688 
817618 
817628 
817638 
817648 
817658 
817668 
817678 
817688 
817698 
817788 
817718 
817728 
817738 
817748 
817758 
817768 
817778 
817788 
817798 
817888 
817818 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



$38 
$7C 
$CE 
$7C 
$7E 
$88 
$88 
$88 
$88 
$86 
$18 
$88 
$88 
$68 
$18 
$3C 
$18 
$88 
$6E 
$78 
$3E 
$EE 
$eE 
$3C 

$ce 

$EE 
$63 
$FE 
$68 
$FE 
$68 
$3C 
$DE 
$C6 
$FE 
$38 
$18 
$1E 
$8C 
$C6 
$78 
$E8 
$68 
$C6 
$C6 
$C6 
$DE 
$7C 
$C6 
$7C 
$6C 
$7C 
$C6 
$EE 
$66 
$30 
$86 
$FE 
$C8 
$E6 
$66 
$C3 
$66 
$C3 
$CB 
$C3 
$3C 
$C3 
$18 
S7E 
$FE 
$88 
$18 
$88 
$18 
$88 
$18 
$88 
$63 
$88 
$88 



,$38 


$38, 


,$CE 


$E6, 


,$E6 


$7C, 


,$CE 


,$C6, 


,$8C 


$18, 


,$38 


$38, 


,$38 


p$38. 


,$88 


$18, 


,$18 


$18, 


,$8C 


,$18, 


,$8C 


,$86, 


,$88 


,$7E, 


,$7E 


,$88, 


,$38 


$18, 


,$38 


$68, 


,S66 


$66, 


,S88 


$18, 


,S3C 


$66, 


,$68 


$3E, 


,$9C 


$3C, 


,$66 


$66, 


,$73 


$63, 


,$63 


$63, 


,$66, 


$CC, 


,$CB, 


$E6, 


,$73, 


$63, 


,$63, 


$63, 


,$56, 


$68, 


,$63, 


$66, 


,$56 


$68, 


,$68 


$68, 


,$66 


$C6, 


,$C6, 


$66, 


,$C6, 


$C6, 


,$E6, 


$C6, 


,$18 


$18, 


,$18 


$18, 


,$ec 


$8C, 


,$1C 


$38, 


,$6C 


$6C, 


,$6C 


$6C, 


,$68 


$68, 


,$66 


$7E, 


,$EE 


$FE, 


,$C6 


,$C6, 


,$C6 


,$E6, 


,$CE 


,$C6, 


,$CE 


,$C6, 


,$ce 


,$E6, 


,$66 


,$66, 


,$68 


,$68, 


,$E6 


,$C6, 


,$C6 


,$CE, 


,$73 


,$66, 


,$66 


,$63, 


,$66 


,$68, 


,$86 


,$66, 


,$38 


,$68, 


,$C2 


,$C6, 


,$66 


,$66, 


,$66 


,$6E, 


,$66 


,$66, 


,$66 


,$3C, 


,$C3 


,$C3, 


,$DF 


,$77, 


,$C3 


,$66, 


,$66 


,$C3, 


,$66 


,$66, 


,$18 


,$18, 


,$C6 


,$ec. 


,$68 


,$C3, 


,$1E 


,$18, 


,$18 


,$1E, 


,$48 


,$68, 


,$8C 


,$86, 


,$78 


,$18, 


,$18 


,$78, 


,$88 


,$1C, 


,$89 


$88, 


,$88 


$88, 


,$88 


$FF, 



,$88 
,$7C 
,$88 
,$E6 
,$38 
,$88 
,$88 
,$18 
,$38 
,$38 
,$88 
,$88 
,$88 

,$ec 

,$88 
,$8C 
,$88 
,$6E 
,$88 
,$36 
,$C3 
,$63 
,$DE 
,$C8 
,$7C 
,$63 
,$DE 
,$78 
,$7C 
,$78 
,$68 
,$C8 
,$3C 
,$CE 
,$C6 
,$18 
,$8C 
,$8C 
,$68 
,$78 
,$C6 
,$68 
,$78 
,$D6 
,$C6 
,$F6 
,$C6 
,$C6 
,$7C 
,$66 

,$ce 

,$C6 
,$7F 
,$6C 
,$C3 
,$3C 
,$5C 
,$C8 
,$7C 
,$66 
,$3F 
,$66 
,$18 
,$D3 
,$62 
,$3C 
,$C3 
,$3C 
,$18 
,$18 
,$FE 
,$18 
,$88 
,$38 
,$88 
,$18 
,$88 
,$36 
,$88 
,$88 
,$88 



*= $e2Ee 
.MQRD BEGIN 
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Pixel 
Averaging 

on the 
■ATARI 



by Stephen Miller 



If you've ever looked at a picture created 
with one of the ANTIC Mode E graphics pro- 
grams (i.e. MicroPainter, Atari Artist, 
KoalaPad, etc. — those using screens made up 
of ANTIC Mode E instructions in the dis- 
play list, also known as GRAPHICS 15 or 
GRAPHICS 7+ ), you probably noticed that, 
despite having the highest resolution possi- 
ble while still having controllable colors, the 
curves and diagonal lines remain awfully 
jagged-looking. This is caused by an effect 
known as "stairstepping" or "aliasing" (the 
individual "steps" are called "jaggies"). With 
PIXAV 1.0, the program presented here, this 
problem can be helped. 



Typing It In 



Type in Listing 1. Check your work with 
BASIC Editor II and be careful to save a copy 
before it's run. If you have made any typing 
mistakes in the DATA statements, the pro- 
gram will tell you where. 

The Ja^ie Blender 

As yet, there is no way to get around some 
degree of jagginess in a picture created by a 



computer, but its effects can be minimized by 
a long-used technique called "pixel averag- 
ing" ("pixel" is a short form of "picture ele- 
ment," meaning an individual dot of a 
picture), which blends the jaggies together 
and smooths out their differences. 

This technique involves taking the average 
brightness (in computerese, "luminance") of 
the pixels in a small area of a picture and 
replacing the center pixel's luminance value 
with this value. This process is repeated for 
every pixel in the picture, the area each time 
centering on the pixel in consideration. For 
instance, consider a picture with four differ- 
ent possible luminances, including back- 
ground (sound like any kind of display you 
know of, with the right SETCOLOR state- 
ments?), containing a "neighborhood" of pix- 
els with the following luminance values: 

3 1 3 

2 3 

1 2 2 

To find the new value for the center pixel, 
we add all the values in the neighborhood: 

3-^-1-3-^2-1-0-^3+1-1-2-1-2=17 
and divide by the number of pixels in the 
neighborhood: 



17/9 = 1.888 
or, rounding to the nearest integer, we get 2. 
We would now change the center pixel's lu- 
minance to 2. These steps are repeated for 
every pixel in the picture. This process is 
called pixel averaging, or, for short, PIXAV- 
ing. However, because PIXAVing a picture 
on top of itself this way would create an er- 
ror which would slowly accumulate because 
previous pixel changes would throw off new 
ones, we should PIXAV onto another, more 
expendable picture. This generally creates a 
cleaner, more polished and consistent output. 
However, PIXAVing a picture on top of it- 
self does have its uses, as we'll see later. 

Variations on a Theme 

Also, replacing the center pixel's value is 
not all we could do. We could also add the 
luminance of the center pixel to the average 
luminance, letting the sum "roll over" from 
three back down to zero, like this: 

-h 1 -> 1 

1 -h 1 -> 2 

2 -t- 1 -> 3 

3 -h 1 -> 

We could subtract the center firom the aver- 
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age, letting the difference roll under from 
zero to three, much like in the previous ad- 
dition; we could AND the average with the 
center (both in binary form, of course); we 
could OR the two; and finally, we could EOR 
(Exclusive OR) the two. 

The effects of each of these approaches, 
multiplied by the two modes of PIXAVing (on 
top of itself or to an alternate picture) give 
a wide range of results. 

Replace-PIXAVing to an alternate picture 
tends to blend colors evenly from light to 
dark. In other words, dark areas encroach on 
light areas equally as much as light areas en- 
croach on dark areas. This usually works best 
on pictures of medium overall brightness. 
Replace-PIXAVing a picture onto itself has 
much the same effect, except that the picture 
generally seems to have a light shining on it 
from an angle. This also usually works best 
with medium-brightness pictures. 

Add-PIXAVing to an alternate picture tends 
to make light areas dark and dark areas light. 
The difference between it and simply revers- 
ing the colors is that the order of the colors 
is kept the same. Like replace-PIXAVing a 
picture on top of itself, add-PIXAVing a pic- 
ture on top of itself tends to make the pic- 
ture look like a light is shining on it from an 
angle. 

Subtract-PIXAVing to an alternate picture 
gives the effect of edge detection. The edges 
of the objects in the picture become light, 
while the rest of the picture becomes dark. 
Subtract-PIXAVing a picture on top of itself 
tends to make the texture of the picture 
(usually digitized) stand out and give it more 
relief. If the picture is drawn and not digi- 
tized, it heightens the existing texture and cre- 
ates some texture of its own. 

AND-PIXAVing to an alternate picture 
works much like replace-PIXAVing, except 
that the light areas are prevented from en- 
croaching on the dark areas. This usually 
works best on pictures which have a high 
overall brightness or many thin, black lines 
or dots which would normally be swamped 
by surrounding white areas. Like other forms 
of PIXAVing a picture on top of itself, AND- 
PIXAVing has much the same effect of its 
alternate-picture counterpart, but makes it 
seem like there is light hitting from the side. 

OR-PEXAVing to an alternate picture works 
like replace-PIXAVing as well, but the dark 
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areas don't encroach on the light ones. In 
other words, the areas AND would deaden, 
OR heightens. OR-PIXAVing a picture on top 
of itself has much the same effect, but tends 
to make the picture look washed-out. Both 
of the OR-PIXAVs work best on pictures of 
low overall brightness or which have thin, 
white lines or dots which would also other- 
wise be swamped by surrounding areas of 
black. 

OR-PIXAVing to an alternate picture, at 
first glance, has the same effect as subtract- 
PIXAVing to an alternate page. Not so! 
Closer examination reveals that the subtracted 
pictures seem to lack shading, whereas the 
EORed ones do not. As a matter of fact, what 
you see when you look at an EOR-PIXAVed 
picture is a map of the absolute differences 
between the original picture and a replace- 
PIXAVed version of it; that is, each pixel in 
an EOR-PIXAVed picture reflects the abso- 
lute difference between that pixel's original 
value and its new value (if the picture had 
been replace-PIXAVed) . Hard to believe, but 
true. Strangely enough, EOR-PIXAVing a 
picture on top of itself looks nothing like a 
picture EOR-PIXAVed to an alternate picture. 
EORing a picture on top of itself introduces 
weird patterns to the picture. 

BASICally Slow 

Now that we know how to actually PIXAV 
a picture, it should be easy to code, right? 
Just slap something together in BASIC, right? 
Wrong. I tried this and had to interrupt the 
program 15 minutes after I had typed RUN, 
because only one-quarter of the screen had 
been finished by then. This would have meant 
one hour for every picture processed. I cer- 
tainly wasn't going to sit through this time 
and time again, and I knew that, deep down 
inside, underneath all that BASIC, my Atari 
wasn't that lethargic. I set forth with all the 
determination I could muster (and all the time 
I could muster— it was the middle of the 
school year) to write the main loop in 
machine language. 

Slowing Down to Speed Up 

When I started writing, I realized that it 
was going to be uphill all the way. The only 
assembler I had was the good old Atari 



ASMED (ASseMbler/EDitor), and I didn't 
have the money to buy a better one. There 
was no solution except to keep plugging away. 
Suddenly, several months later. . . . 

The Petfectionist's Curse 

I finally had the program written, 
debugged, and working beautifully. However, 
even in machine language, with ANTIC's 
DMA turned off (read: with the screen turned 
off so the program would run faster) it still 
took four minutes to PIXAV a picture. Be- 
ing the perfectionist I am, I wanted it to work 
even quicker. So I said to myself, "Self, how 
can you make it any faster?" The only an- 
swer I could think of was . . . 

The PLOT Thickens 

. . .to write my own PLOT/LOCATE rou- 
tine. I had been using CIO's PLOT/LOCATE 
routine up until now, which, I realized, had 
things to deal with which it didn't need to (in 
my program, anyway) like split screens, 
graphics mode checking, etc. So, I plod- 
ded along once more, still bearing the weight 
of the problem of the ASMED. About a 
month later, voila! It worked! Now the PIX- 
AV routine took only IV2 minutes to do its 
job on a picture. You may not think that this 
is very fast, but consider that in this minute 
and a half, the computer has to do 30,720 
PLOTs, average groups of numbers of vari- 
ous sizes 30,720 times and do a whopping 
276,480 LOCATES (whew!). 

After the main part had been perfected, 
some final polishing made it complete: 
brightness correction, SAVE routine, etc. 
Then I realized that I had written my program 
on a 1200 XL and that GRAPHICS 63 (15 
for Mode 7-1-16 for no text window -I- 32 
for no screen clear = 63) wouldn't cut it on 
an 800 or 400. So, with a quick modifica- 
tion, I had the program working with all 
Ataris. This routine is interesting because it 
makes use of Location 65527 to identify the 
ROM version it is operating on (it just so hap- 
pens that the I.D. numbers for all XLs and 
XEs are less than 34, while all 800s and 400s 
are equal to or greater than 34). 

You may also wonder why I went to the 
trouble to write a memory-clear routine to 
clear the screen and have the GRAPHICS 



LISTING 1: BASIC 



e REM KKKKKKKKMKKKXICXKKXKICKKKKKICKKKK 



commands in the program not clear the 
screen. The reason is that to make the pro- 
gram and both screens fit in memory, they 
both have to be put so close together that, due 
to a small bug in the screen-clear routine, the 
first ten bytes of the Screen-2 display list, 
which immediately follows Screen 1, would 
be wiped out by a screen clear on Screen 1 
(see Mapping the Atari, page 19). 

Usini the Prop-am 

If you accidentally select one of these fol- 
lowing options, don't worry. You will be 
given a chance to abort the operation before 
it is actually performed. 

Load. This option allows you to load only 
files which are 62 sectors in length. This is 
the size of an "uncompacted" picture {Micro- 
Painter saves its files this way automatically, 
but to do this with KoalaPad or Atari Artist, 
you must press the greater-than key ( > ) to 
save the picture as an uncompacted file with 
the filename D:PICTURE. To load the un- 
compacted file back into either of these two 
programs, press the less-than key (<). Af- 
ter you have selected a picture, PIXAV will 
load it. There is a ten- to 20-second blank 
screen after this, during which time the pro- 
gram adjusts the pixels so that their color 
numbers match up with their brightnesses 
(determined by the color values saved by the 
graphics program you used). 

View. Just what it says. Press Option to 
return to the menu after the picture is on the 
screen. 

PIXAV. This is the heart of the program, 
the part that does the actual PIXAVing. Sim- 
ply follow on-screen instructions. 

Save. Fairly self-explanatory. 

Quit. If you wish to leave the program, it 
is imperative that you either use this option 
or turn the computer off. Otherwise, any sub- 
sequent programs run will be working with 
16K of memory less than normal. 

The End 

Well, I hope you enjoy using PIXAV, and 
get good results from it. Take care, and Hap- 
py PIXAVing! 



Stephen Miller is a self-taught programmer 
and a student, caught between high school 
and college, who started tinkering with Ataris 
in the fifth grade (1980). This is his first ar- 
ticle, and he enjoys programming in BASIC, 
assembly language and Pascal. His hobbies 
are reading and burning the midnight oil. H 



1 REM « PIXAV l.e » 

2 REM * by Stephen M. Miller * 

3 HEM » * 

4 REM » COPYRIGHT 1989 * 

5 REM » BY ANOLOG COMPUTING « 

6 REM XKMKMKKKKXKXMXKKKKKldCMMXXKKKKK 
40 DIM PIXaU$ (186), CLEARS (421, CSMITCH$ 
(661 , CI0$ (61 , DELS (241 , FILES (141 , NAMES ( 
141 , FUNCS (101 , LUM (31 , LUM2 (31 , NTRYS (171 
50 DELSrCHRS (1561 : DELS (241 =DELS : DELS (2 
1 =DELS : OLDOPTin : 0LD0PT2=1 : MT=106 

60 POKE 559,e:G0SUB 960;P0KE 559,34:IF 
FRE(01<1650e THEN ? CHRS (1251 ; CHRS (25 
31:? "Not enough Menory !":END 
70 G05UB 194e:DL2=PEEK(5601+PEEK(5611« 
256!SCR2L=PEEK(881 : 5CR2H=PEEK (891 : SCR2 
=5CR2L+SCR2H»256 ; POKE MT , PEEK (MTl -32 
80 GOSUB 1940 :DL1=PEEK (5601 -l-PEEK(5611« 
258:5CR1L=PEEK(881 : 5CR1H=PEEK (891 : SCRl 
=SCR1L+5CR1H»256 : POKE MT , PEEK (MTl -32 
90 A=USR(ADR(CLEARSl,SCRl,SCRl+76801 :A 
=USR (ADR (CLEARSl , SCR2, SCR2+76801 
100 OPEN tt2, 12,0,"E!"!P 0KE 752,1: POSIT 

ION 14,1:? " EE£EI!MHO ": POSITION ie,2 
;? "by Stephen M. Miller":POKE 82,10 
110 ? :? "Load":? "Uiew":? "PIXAV":? " 
Save" : ? "Quit" : T0P=3 : MAX0PT=5 : OLDOPT=o 
LD0PT1:P0KE 77,0:G0SUB 780 
120 0LD0PT1=0PT:0N opt GOSUB 140,350,4 
10,620,740 

130 CLOSE ttl: CLOSE tt2:G0T0 100 
140 GRAPHICS 0:POKE 752,1:0PEN ttl,6,0, 
"D :«.»";? :? :MAX0PT=0:T0P=1 
150 INPUT ttl,NTRY$:IF NTRY$(2,21<>" " 
THEN 180 

160 TRAP 180: IF NTRYS (15, 17) ="062" THE 
N ? " ";NTRYS(3,13) :MAXOPT=MAX 

OPT+1 

170 GOTO 150 

180 TRAP 40000: CLOSE ttl : ? " Re 

turn to Menu":MAXOPT=MAXOPT+l:OLDOPT=l 
: GOSUB 780: IF OPT=MAXOPT THEN RETURN 
190 CLOSE ttl:OPEN ttl, 6, 0, "D :«.«": FOR C 
=1 TO OPT 

200 INPUT »1,NTRYS:IF NTRYS (15, 17) <>"0 
62" THEN 200 

210 NEXT C:CLOSE ttl : TRAP 40000 : Q=10 :F0 
R C=3 TO 10 

220 IF NTRYS(C,C1=" " THEN Q=C-1:C=10 
230 NEXT C:NAMES(1,21="D:":NAMES(31=NT 
RYS (3, Ql : NAMES (LEN (NAMES) +11 =" . " : NAMES 
(LEN (NAMES) +11 =NTRYS (11, 131 
240 FUNCS="load":GOSUB 890 
250 IF Q=l THEN SCRL=SCR1L : SCRH=SCR1H 
260 IF 0=2 THEN SCRL=SCR2L : SCRH=SCR2H 
270 IF 0=3 THEN RETURN 
280 OPEN ttl, 4,0, NAMES 

290 POKE 849,l:P0KE 85e,7:P0KE 852, SCR 
L:POKE 853,SCRH:P0KE 856,0:P0KE 857,30 
300 A=USR(ADR(CI0S11 :FOR X=0 TO 3: GET 
I ttl, LUM: LUM(X1 =LUM-INT (LUM/161K16 : NEXT 
X: CLOSE SI 

310 FOR Y=0 TO 3:LUM=16:F0R X=e TO 3:1 
F LUM(X1<LUM THEN LUM=LUM(X1 : LO=X 
320 NEXT X:LUM(LD1=1&:LUM2(L0]=Y:NEXT 
V 

330 IF LUM2(O1=0 AND LUM2(11=1 AND LUM 
2(21=2 AND LUM2(31=3 THEN RETURN 
340 POKE 88,SCRL:P0KE 89,SCRH:P0KE 559 
, : A=USR (ADR (CSUITCHSl , LUM2 (01 , LUM2 (11 
, LUM2 (21 , LUM2 (31 1 : POKE 559, 34 : RETURN 
350 FUNCS="View":GOSUB 890 
360 IF Q=l THEN POKE 561, INT (DLl/2561 : 
POKE 560,DL1-PCEK(5611«256:G0T0 390 
370 IF Q=2 THEN POKE 561, INT (DL2/2561 : 
POKE 560,DL2-PEEK(5611W256:G0T0 390 
380 IF Q=3 THEN RETURN 

APRIL A.N.A.L.O.Q. Computing 



'390 POKE 7e8,4:P0KE 7e9,8:P0KE 710,12: 
IF PEEKC53279)<>3 THEN 390 
400 RETURN 

410 POKE 82,10:? :? "Replace":? "ftdd"; 

? "Subtract":? "AND":? "OR":? "E0R":T0 

P=10 : MftX0PT=6 : 0LD0PT=0LD0PT2 
1420 G05UB 780:MODE=OPT-l:OLDOPT2=OLI>OP 

T:FUNC$="PIXftU":G05UB 890 

430 IF Q=l THEN 51L=5CR1L : S1H=SCR1H : SI 
|=5CR1 
I 440 IF Q=2 THEN 51L=5CR2L : S1H=SCR2H ; SI 

:SCR2 
1450 IF Q=3 THEN RETURN 

460 FUNC$="PIXaU onto":GOSUB 890 

470 IF 0=1 THEN 52=SCR1 

480 IF Q=2 THEN S2=5CR2 

490 IF Q=3 THEN RETURN 

500 ? "I'll turn Off the screen to Hak 

e it quicker, but it'll still take a 

bout one a nd a ha lf Minutes," 

510 ? "Press fcUiLU to begin." 

520 IF PEEKC53279)<>6 THEN 520 
I 530 PIHfiU$C119,119J=CHRSt234J :IF M0DE= 
|l THEN PIXAU$C119,119J=CHRSC24) 

540 IF M0DE=2 THEN PIXAU$ C119, 119) =CHR 

$C56) 

550 PIXAV$C120,120)=CHR$C234} :IF MODE= 

1 THEN PIXaU$C120,12O)rCHR$Ciei} 

560 IF M0DE=2 THEN PIXAU$ C120, 120} =CHR 
I $(2291 

570 IF M0DE=3 THEN PIXAU$ (120, 120] =CHR 

$(37} 

580 IF M0DE=4 THEN PIXAU$ (120, 120} =CHR 

$(5} 

590 IF M0DE=5 THEN PIXAU$ (120, 120} =CHR 

$(69} 

600 PIXAU$(121,121}=CHR$(234) :IF HODE 

THEN PIXAU$(121,121}=CHR$(2e4} 
|6ie POKE 88,S1L:P0KE 89,S1H:P0KE 559,0 

:A=U5R(ADR(PIXAU$},S1<>S2,S1,S2} :poke 

559,34:RETURN 

629 TRAP e20:CL0SE ttl:POKE 752,0:? "Ty 
pe the filenane: ";:INPUT »2,FILE$:P0 
KE 752,l:TRAP 40000 

630 IF LEN(FILE$}<2 THEN FILE$ (LEN (FIL 
E$}+1}=" " 

640 IF FILE$(1,2}<>"D:" THEN NAHE$(1,2 

}="D:" 

650 NAME$(LEN(NANE$}+1}=FILE$ 

660 FUNC$="save":GOSUB 890 

670 IF Q=l THEN 5CRL=SCR1L : SCRH=SCR1H 
1680 IF Q=2 THEN SCRL=SCR2L : SCRH=SCR2H 

690 IF Q=3 THEN RETURN 

700 OPEN ttl,8,0,NAME$ 

710 POKE 849,l:P0KE 850,11:POKE 852, SC 

RL:POKE 853,SCRH:PDKE 856,0:POKE 857,3 


|720 A=USR(ADR(CID$]} :PUT ttl,0:PUT ttl,4 

:PUT }tl,8:PUT ttl, 12: CLOSE ttl 
1730 RETURN 
|740 ? "Really quit? (Y/N}":OPEN ttl,4,0 

'K * " 
|75o'gET ttl,A:IF AOASCC'Y"} AND AOASC 

("N"} THEN 750 
1760 CLOSE «l:IF A=ASC("N"} THEN RETURN 

770 POKE 106,255:A=USR(58484} 

780 0PT=0LD0PT:P0KE 82,2:? :POKE 82,9: 

? "Press: EBBJia t o wove u p":? " EHiE 

a to nove down":? " H^W<i» to choose" 

790 Y=PEEK(84} :POKE 766,1:P0KE 82,2 

800 POSITION 9,T0P+0PT:PUT »2,31 

810 Q=PEEK (53279} 

1820 IF Q=6 THEN POSITION 9, TOP+OPT : PUT 
tt2, 32 : OPT=OPT+1»(OPT<MAKOPT} - (MAXOPT- 
|1}«(0PT=MAX0PT} 

830 IF 0=5 THEN POSITION 2,Y:P0KE 766, 

: ? CHR$ (28} ; CHR$ (28} ; CHR$ (28} ; DEL$ (1, 

3} ; : RETURN 

|840 IF 0=3 THEN POSITION 9, TOP+OPT : PUT 
«2,32:0PT=0PT-Ht(0PT>l}+(MAX0PT-l}»(0 
|PT=1} 



850 POSITION 9,T0P+0PT:PUT tt2,31 

860 0=20 

870 IF PEEK (53279} =0 AND C THEN C=C-1 : 

GOTO 870 

888 GOTO 810 

890 POKE 82,9:? "Pr ess: HT^mri to ";FU 
|nc$;" screen 1": ? " Bl Bga to ";FUNC$; 
screen 2":? " niJimi;! for Main Menu" 
1900 Q=PEEK(53279} 
910 IF 0=3 THEN 950 
920 IF 0=5 THEN 0=2: GOTO 950 
930 IF 0=6 THEN 0=1: GOTO 950 
940 GOTO 900 

950 POKE 82,2:? CHR$ (28} ; CHR$ (28} ; CHR$ 
(28);DEL$; :RETURN 
1960 FOR F=0 TO 4 : IF F=0 THEN Z=181 
970 IF F=l THEN Z=41 
980 IF F=2 THEN Z=65 
990 IF F=3 THEN Z=164 
1080 IF F=4 THEN Z=6 

1010 FOR X=l TO Z STEP 6 : 5=0 : FOR Y=X T 
0. x+5:read a 

1020 IF F=0 THEN PIXAU$ (Y, Y} =CHR$ (A} 
1030 IF F=l THEN CLEARS (Y, Y} =CHR$ (A] 
1040 IF F=2 THEN CSMITCH$ (Y, Y} =CHR$ (A) 
1050 IF F=3 THEN POKE Y+1535,A 
1060 IF F=4 THEN CIO$ (Y, Y} =CHR$ (A} 
1070 S=S+A*Y:NEXT Y:READ C : 5=S-1OO0O«I 
NT(S/100OO} :IF COS THEN L=PEEK (183} +P 
EEK(184}K256:G0T0 llOO 
1080 NEXT X:NEXT F 
1090 RETURN 

1100 GRAPHICS 0:? :? "Error in line "; 
L;"!":END 
1110 REM PIXAU 

1120 DATA 104,104,104,133,212,104,2840 
1130 DATA 133,207,133,89,104,133,7414 
1140 DATA 206,133,88,104,133,209,3547 
1150 DATA 104,133,208,169,0,133,5914 
1160 DATA 84,169,0,133,85,169,7753 
1170 DATA 1,133,218,169,0,133,2015 
1180 DATA 203,133,205,32,8,6,2092 
1190 DATA 133,204,230,85,32,0,459 
1200 DATA 6,198,84,32,0,6,6466 
1210 DATA 198,85,32,0,6,198,9708 
1220 DATA 85,32,0,6,230,84,8047 
1230 DATA 32,0,6,230,84,32,6926 
1240 DATA 0,6,230,85,32,0,6618 
1250 DATA 6,230,85,32,0,6,8887 
1260 DATA 198,85,198,84,162,0,3176 
1270 DATA 165,203,56,229,205,144,3724 
1280 DATA 3,232,208,249,24,101,1245 
1290 DATA 205,70,205,144,2,230,238 
1300 DATA 205,197,205,144,1,232,9459 
1310 DATA 134,203,165,203,234,234,8143 
1320 DATA 234,41,3,133,203,169,6846 
1330 DATA 0,208,156,208,150,165,5218 
1340 DATA 212,240,8,165,208,133,726 
1350 DATA 88,165,209,133,89,169,750 
1360 DATA 0,133,218,165,203,32,931 
1370 DATA 15>6, 165, 212, 240, 8, 9518 
1380 DATA 165,206,133,88,165,207,3779 
1390 DATA 133,89,230,85,165,85,170 
1400 DATA 201,160,208,211,230,84,7435 
1410 DATA 165,84,201,192,208,205,7544 
1420 DATA 96,0,0,0,0,0,7376 
1430 REM CLEAR 

1440 DATA 104,104,133,204,104,133,2845 
1450 DATA 203,104,133,206,104,133,8250 
1460 DATA 205,162,0,169,0,129,9959 
1470 DATA 203,165,203,197,205,208,5461 
1480 DATA 7,165,204,197,206,208,7703 
1490 DATA 1,96,230,203,208,235,3335 
1500 DATA 230,204,184,80,230,0,6068 
1510 REM CSMITCH 

1520 DATA 104,104,104,133,203,104,2795 
1530 DATA 104,133,204,104,104,133,7408 
1540 DATA 205,104,104,133,206,169,4353 
1550 DATA 0,133,85,133,84,169,3359 
1560 DATA 1,133,218,32,15,6,880 
|l570 DATA 170,213,203,240,9,169,3344 



APRIL A,N.A.L.O.C3. Computing 



1580 DATA 0,133,218,181,203,32,463 
1590 DATA 15,6,230,85,165,85,7004 
1600 DATA 201,160,144,227,169,0,5954 
1610 DATA 133,85,230,84,165,84,4832 
1620 DATA 201,192,144,215,96,0,3237 
1630 REM PAGE 6 

1640 DATA 32,15,6,192,0,208,2096 
1650 DATA 7,24,101,203,133,203,7079 
1660 DATA 230,205,96,41,3,133,401 
1670 DATA 215,165,85,201,160,176,1496 
1680 DATA 112,165,84,201,192,176,5834 
1690 DATA 106,160,0,162,8,169,278 
1700 DATA 40,133,214,169,0,133,7226 
1710 DATA 213,6,213,38,214,144,7726 
1720 DATA 13,24,165,213,101,84,1217 
1730 DATA 133,213,165,214,105,0,7255 
1740 DATA 133,214,202,208,234,165,3519 
1750 DATA 85,74,74,24,101,213,20 
1760 DATA 133,213,169,0,101,214,2615 
1770 DATA 133,214,24,165,88,101,8889 
1780 DATA 213,133,213,165,89,101,9605 
1790 DATA 214,133,214,165,85,41,9133 
1800 DATA 3,133,216,56,169,3,7684 
1810 DATA 133,217,229,216,133,216,767 
1828 DATA 6,216,166,216,240,5,4722 
1830 DATA 6,217,202,208,251,165,3709 
1840 DATA 218,240,18,165,217,49,1631 
1850 DATA 213,166,216,240,32,74,1323 
1860 DATA 202,208,252,240,26,160,7040 
1870 DATA 1,208,22,165,215,166,440 
1880 DATA 216,240,4,10,202,208,9726 
1890 DATA 252,133,215,165,217,73,1596 
1900 DATA 255,49,213,5,215,145,549 
1910 DATA 213,96,0,0,0,0,463 
1920 REM CIO 

1930 DATA 104,162,16,76,86,228,2578 
1940 IF PEEKC65527}<34 THEN GRAPHICS 6 
3:RETURN 

1950 GRAPHICS 56 : POKE 559, : X=PEEK C560 
)+PEEK(561)»256 

1960 IF PEEK(X)=79 THEN POKE X,78:X=X+ 
3:G0T0 1960 

1970 IF PEEK CX) =15 THEN POKE X,14 
1980 IF PEEKCX1065 THEN X=X+1:G0T0 19 
60 
1998 RETURN 



LISTING 2: ASSEMBLY 



8100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
8370 
0380 
0390 



OPT N0LI5T 



PIXAU Uti 


lities 




by 






Stephen M. 


Miller 




July, 


1987 




for 






ANALOG COMputi 


ng Nagaz 


ine 



Systen equates 

MKXXKXKKMKKKXK 

Screen 

ROMCRS = $54 
CDLCRS = $55 
SAUHSC = $58 

XKKKKXKKKXKKKXKKX 

Progran variables 

WXKXXXXKKKKXXXKXX 

PIXAV variables 



AUG = $CB 
CENTER = $CC 
NUMPIX = $CD 



;AUG. Of pixels 
;vaiue of CENTER 
;NUM. of Pixels 



0400 


SCRNIL = $CE 


;SCReeN 1 addrLo 


0410 


SCRNIH = $CF 


;SCReeN 1 addrHi 


6420 


SCRN2L = $D6 


;SCReeN 2 addrLo 


0430 


SCRN2H = $D1 


;SCReeN 2 addrHi 


0440 


NODE = $D4 


;l or 2 scr MODE 


0450 






0460 


; PLTLOC variables 


8476 






8488 


ADRL = $D5 


;scr data ADdRLo 


8490 


ADRH = $D6 


;scr data ADdRHi 


6500 


COLR = $D7 


;pixel COLOR 


0510 


COUNT = $D8 


; shifts to COUNT 


(520 


MASK = $D9 


;scrn data MASK 


6530 


CMD = $DA 


;CoMManD 


0540 






0550 


; PLTLOC constants 


8568 






6570 


LOC = 1 


; Locate 


0580 


PLOT = 6 


J PLOT 


0590 


i 




0600 


; CLEAR variables 


0610 


I 




0626 


BEGL = $CB 


;BEGin addrLo 


8636 


BEGH = $CC 


;BEGin addrHi 


6640 


FINL = $CD 


;FINish addrLo 


0650 


FINH = $CE 


;FINish addrHi 


0660 






0670 


; CSNITCH variables 


0680 






0690 


NENe = $CB 


;New val for Os 


0700 


NEMl = $CC 


;New val for Is 


0710 


NEW2 = $CD 


;New val for 2s 


0720 


NEM3 = $CE 


;Nes val for 3s 


0730 
0740 
0750 
0760 
0770 






; PIXAU 








6786 


; This routine. 


called froM 


6796 


i BASIC, takes 


the average of 


6866 


; the values of 


each available 


8784 ; pixel in a 3 


X 3 square 


6816 


; and Modifies 


the center 


6826 


; pixel's value 


with that 


6836 


; average. This process is 


6846 


; repeated on every pixel in the 


6856 


J 166 X 192 ANTIC MOde E 


6866 


; display. 




6878 


i 




6886 


»=$58e6 




8896 






6906 


; Get paraneter 


5 


0918 






8928 


'PLA 


;Satisfy BASIC 


0936 


PLA 




6946 


PLA 




0950 


STA MODE 




0966 


PLA 




6976 


STA SCRNIH 




6986 


STA SAUMSC+l 




6998 


PLA 




1866 


STA SCRNIL 




1616 


STA SAUMSC 




1628 


PLA 




1636 


STA SCRN2H 




1040 


PLA 




1050 


STA SCRN2L 




1060 






1070 


; Main Loop 




1080 






1090 


'lda tt6 


jinit loop 


1106 


STA RONCRS 


;Top edge 


1116 


YLOOP LDA »0 


;lnit loop 


1126 


STA COLCRS 


;Left edge 


1138 


XLOOP LDA ttLOC 


;Set up for 


1148 


STA CMD 


;9 Locates 


1158 


LDA ttO 


;Get ready 


1166 


STA AUG 


;to average 


1178 


STA NUMPIX 


;and sun 


1186 


j 




1196 


; Locates 





APRIL A.IM.A.L.O.Q. Computing 



1.200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1498 

1508 

1518 

1528 

1530 

1548 

1558 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 



JSR LOCADD 
STfl CENTER 
INC C0LCR5 
JSR LOCADD 
DEC R0MCR5 
JSR LOCADD 
DEC COLCRS 
JSR LOCADD 
DEC COLCRS 
JSR LOCADD 
INC ROMCRS 
JSR LOCADD 
INC ROMCRS 
JSR LOCADD 
INC COLCRS 
JSR LOCADD 
INC COLCRS 
JSR LOCADD 
DEC COLCRS 
DEC ROMCRS 



; Center center 

;Center right 

;Upper right 

;llpper center 

;Upper left 

;Center left 

jLower left 

; Lower center 

;Lower right 

;Back to 
;the center 



AUG=:INT CAUG/NUNPIX+0 . 5) 



LDx no 

LDA AUG 

SEC 
NXTSUB SBC NUMPIX 

BCC ROUND 

INX 

BNE NXTSUB 
ROUND CLC 

ADC NUMPIX 

LSR NUMPIX 

BCC COMP 

INC NUMPIX 
COMP CMP NUMPIX 

BCC FINDQU 

INX 
FINDQU STX AUG 



to quotient 
Get suH 
subtract prep 

;Subt. divisor 
Round if done 
else count 
and keep going 
Add prep 
Fix rollunder 
Divide by 2 
Round down 
or up 

reHainder-suM/2 
Down if < 
or up if > 
Store result 



Do operation on AUG 



LDA AUG 

NOP 

NOP 

NOP 

AND tt3 

STA AUG 

LDA ttO 
BBX BNE XLOOP 
BBY BNE YLOOP 

; PLOT results 

'lda mode ; 

BEQ NOFLPl i 

LDA SCRN2L ; 

STA SAUMSC i 

LDA SCRN2H ] 

STA SAUMSC+1 J 

NOFLPl LDA ttPLOT 
STA CMD 

LDA AUG j 

JSR PLTLOC i 

LDA MODE i 

BEQ N0FLP2 J 

LDA SCRNIL j 

STA SAUMSC J 

LDA SCRNIH J 

STA SAUMSC+1 I 



;get AUG 

;Do 

;the 

;operation 

;Cut off all but 

J 2 LSBs 

;Fail BBX & BBY 

;Needed to be 

;relocateable 



See if we need 

to flip screens 

If yes, 

then 

do 

it 

; Setup to PLOT 

Color to PLOT 

Do it 

See if we need 

to flip back 

If yes, 

then 

do 

it 



; Loop Managenent 

N0FLP2 INC COLCRS ; Move right 

LDA COLCRS ;See if we are 

CMP ttl60 ;at right edge 

BNE BBX ;If no, continue 

INC ROMCRS ;lf yes, go down 

LDA ROMCRS ;See if we are 

CMP ttl92 ;at bottoM edge 



2010 


BNE BBY 


;lf no, continue 


2020 


RTS 


;lf yes, done! 


2030 
2040 










2050 
2060 


; CLEAR 








2070 






2088 


; This routine 


, called fron 


2898 


; BASIC, sets 


all neMory 


2180 


; locations in 


the specified 


2110 


; boundaries. 


inclusive, to 0. 


2120 






2130 


'»=S5700 




2140 






2150 


; Get paraneters 


2160 






2178 


'PLA 


;Satisfy BASIC 


2180 


PLA 




2190 


STA BEGH 




2200 


PLA 




2210 


STA BEGL 




2220 


PLA 




2230 


STA FINN 




2240 


PLA 




2250 


STA FINL 




2268 


LDX no 


;Indir nonindex 


2270 , 






2280 , 


Main loop 




2290 , 






2300 CLOOP LDA ttO 


; Erase 


2310 


STA CBEGL,X} 


; location 


2320 


LDA BEGL 


;See if we're 


2330 


CMP FINL 


;at the end 


2340 


BNE CCONT 


;If not, cont 


2350 


LDA BEGH 


;See if we're 


2360 


CMP FINN 


jreally done 


2370 


BNE CCONT 


;If not, cont 


2380 


RTS 


;Done! 


2390 CCDNT INC BEGL 


;Move on 


2400 


BNE CLOOP 


; Repeat if not 


2410 , 




;on page bound 


2420 


INC BEGH 


;lf so, INC page 


2430 


CLU 


;Unconditional 


2440 


BUC CLOOP 


;branch 


2450 ; 
2460 , 
2478 , 
2488 1 






CSMITCH 








2498 , 






2500 J 


This routine 


called froM 


2510 i 


BASIC, replaces each pixel 


2520 ; 


value in the 


160 X 192 ANTIC 


2530 J 


node E display with a 


2540 ; 


specified pixel value. 


2550 ; 


depending on 


the original 


2560 ; 


value of the 


pixel . 


2570 ; 






2580 


»=S5780 




2590 ; 






2600 ; 


Get paraneters 


2610 ; 






2620 


PLA 


;5atisfy BASIC 


2630 


PLA 




2640 


PLA 




2650 


STA NEMO 


;New val for Os 


2660 


PLA 




2670 


PLA 




2680 


STA NEMl 


;New val for is 


2690 


PLA 




2700 


PLA 




2710 


STA NEM2 


jNew val for 2s 


2720 


PLA 




2730 


PLA 




2740 


STA NEH3 


;New val for 35 


2750 


LDA ttO 


;Start at 


2760 


STA COLCRS 


; upper 


2770 


STA ROMCRS 


jright 


2780 ; 






2790 ; 


Main loop 




2800 ; 






2810 CSLODP LDA ttLOC ;LOCate 
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2820 


STO CMD 


;Do 


3630 


BCC NOADD 


jCont if bit clr 


2830 


JSR PLTLOC 


;it 


3640 


CLC 


iNeaten up 


2840 


TAX 


;Use result as 


3650 


LDA ADRL , 


Add 


2850 


CMP NENO,X 


; index to table 


3660 


ADC ROMCRS , 


Other 


2860 


BEQ NOPLOT 


;If sane, skip 


3670 


STA ADRL 


factor 


2870 


LDA ttPLOT 


;else PLOT 


3680 


LDA ADRH 


to 


2880 


STfl CMD 




3690 


ADC ttO 


the 


2890 


LDA NEMO,X 


;color to use 


3700 


STA ADRH , 


product 


2900 


JSR PLTLOC 


J Do it 


3710 


NOADD DEX 


Count bits 


2910 NOPLOT INC COLORS ;Move right 


3720 


BNE MULT 


Cont if More 


2920 


LDA COLCRS 


J See if we are 


3730 


LDA COLCRS 


Divide 


2930 


CMP ttl60 


;off right edge 


3740 


LSR A 


■coluMn 


2940 


BCC CSLOOP 


;If no, repeat 


3750 


LSR A 


;by four 


2950 


LDA »0 


;else return to 


3760 


CLC 


;Add 


2960 


STA COLCRS 


;left edge 


3770 


ADC ADRL 


;it 


2970 


INC ROHCRS 


;and Move down 


3780 


STA ADRL 


fto 


2980 


LDA ROMCRS 


;See if we are 


3790 


LDA ttO 


;the 


2990 


CMP ttl92 


;off bottoM edge 


3800 


ADC ADRH 


; screen 


3000 


BCC CSLOOP 


;lf no, repeat 


3810 


STA ADRH 


; address 


3010 


RTS 


;else done! 


3820 


CLC 


;Add 


3020 






3830 


LDA SAUMSC 


; SAUMSC 


3030 
3040 






3840 
3850 


ADC ADRL 
STA ADRL 


;to 
;the 


; LOCADD 




3050 






3860 


LDA SAUMSC+1 


; screen 




3060 






3870 


ADC ADRH 


; address 


3070 


\ This routine 


, called froM 


3880 


STA ADRH 


;also 


3080 


; PIKAU, adds 


the value of a 


3890 






3090 


; specified pi 


xel to AVG and 


3900 


; Get « Of bits 


to shift things 


3100 


; increnents NUMPIX, but onlv if 


3910 


; CCOUNT=CC01 MOD 4]W2I 


3110 


; the pixel is 


within the 


3920 






3120 


; boundaries. 




3930 


'lDA COLCRS 


;Get coluMn 


3130 






3940 


AND »Z 


;Clear top bits 


3140 


w=$6eo 




3950 


STA COUNT 


;Keep it 


3156 






3960 


SEC 


; Subtract prep 


3160 


Do Job 




3970 


LDA tt3 


;Max shift/2 


3170 






3980 


STA MASK 


;Also bot 2 bits 


3180 1 


.OCADD 




3990 


SBC COUNT 


{Subtract 


3190 


JSR PLTLOC 


; Locate 


4000 


STA COUNT 


;it 


3200 


CPY ttO 


;See if legal 


4010 


ASL COUNT 


;TiMes 2 


3210 


ONE LOCADQ 


;lf no, then RTS 


4020 






3220 


CLC 


;If yes, then 


4030 


; Adjust MASK 




3230 


ADC AUG 


; update AUG 


4040 






3240 


STA AUG 




4850 


'lDX COUNT 


;tt of shifts 


3250 


INC NUMPIX 


;and NUMPIX 


4060 


BEQ MASKLQ 


;Skip it if none 


3260 I 


.OCADQ RTS 


;Go back 


4070 


MASKL ASL MASK 


;Move left 


3270 
3280 






4080 
4090 


DEX 

BNE MASKL 


; Count shifts 
;Cont if More 






3290 
3300 


PLTLOC 




4100 
4110 


MASKLQ LDA CMD 
BEQ PLT 


;PLOT or Locate? 
;if 0, then plot 






3310 , 






4120 


; 




3320 , 


This routine 


, called froM 


4130 


; Do Locate 




3330 , 


PIXAU and CSMITCH, either 


4140 


1 




3340 


returns the 


value of a 


4150 


LDA MASK 


;Keep only 


3350 


specified pi 


xel through the A 


4160 


AND (ADRL1,Y 


; needed bits 


3360 


register or 


changes the value 


4170 


LDX COUNT 


;Now 


3370 


of a specifi 


ed pixel to the 


4180 


BEQ PLTLOQ 


;Move 


3380 


value in the 


A register. 


4190 


LOCR LSR A 


fit 


3390 


depending on 


the value in CMD. 


4200 


DEX 


;back 


3400 






4210 


BNE LOCR 


lOver 


3410 J 


PreliH fixing and checking 


4220 


BEQ PLTLOQ 


;Done! 


3420 , 






4230 






3430 1 


»LTLOC 




4240 


; Abort 




3440 


AND »3 


;Zero top 6 bits 


4250 






3450 


STA COLR 


;Keep it 


4260 


ABORT LDY ttl 


;Flag error 


3460 


LDA COLCRS 


;Get ColuMn 


4270 


BNE PLTLOQ 


;Done! 


3470 


CMP »160 


;Out of bounds? 


4280 






3480 


BCS ABORT 


;lf yes, abort 


4290 


; DO PLOT 




3490 


LDA ROMCRS 


;else get row 


4380 






3500 


CMP ttl92 


;Out of bounds? 


4310 


PLT LDA COLR 


;Get pixel color 


3510 


BCS ABORT 


;If yes, abort 


4320 


LDX COUNT 


;Move 


3520 


LDY no 


;lndir, nonindex 


4330 


BEQ COLRLQ 


fit 


3530 


; 




4340 


COLRL ASL A 


f into 


3540 


1 ADR=40»row+COl/4+SAUMSC 


4350 


DEX 


fcorrect 


3550 


' 




4360 


BNE COLRL 


; position 


3560 


LDX tt8 


;8 bit factor 


4370 


COLRLQ STA COLR 


;Keep it 


3570 


LDA tt40 


; Bytes 


4380 


LDA MASK 


fGet Mask 


3580 


STA ADRH 


;per line 


4390 


EOR ttSFF 


;A=NOTCNASK) 


3590 


LDA ttO 


;Clear 


4400 


AND (ADRL1,Y 


fClear 2 bits 


3600 


STA ADRL 


;product 


4410 


ORA COLR 


iFill 2 bits 


3610 1 


iULT ASL ADRL 


;Move ADR pair 


4420 


STA CADRLI,Y 


iPut it back 


3620 


ROL ADRH 


;as one big byte 


4430 


PLTLOQ RTS 


;Done! F1 
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